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Foreword 


If you own a VIC-20, a TRS-80 Color Computer, or another com- 
puter with limited memory, you probably know that it can be 
difficult to make it do complicated things. Memory restrictions 
simply prevent you from taking advantage of many popular 
commercial programs. Many useful programs seem to require 
more memory than your computer has. 

However, there's a lot you can do with limited memory, and 
some of those huge software applications can be trimmed down 
or cut into miniprograms that run quite nicely on the computer 
you already have. 

C. Regena is the popular author of the best-selling Program- 
mer's Reference Guide to the TI-99/4A and Programmer's Reference 
Guide to the Color Computer; she also writes a column about the 
VIC-20 and Commodore 64 in COMPUTE!’s Gazette and one 
about the TI-99/4A in COMPUTE! Magazine. She has written 
and collected some of her best and most powerful programs for 
this book. All the programs take up less than 4K of memory in 
your computer—some of them considerably less. But they’re all 
useful, from those which teach typing to those which test your 
knowledge of music or geography. 

You'll see how to conserve memory in programs, letting you 
make the most of the memory your computer has. You'll even 
see how to translate programs from one computer's version of 
BASIC to another. Best of all, though, you'll have more than 100 
programs to type in and use. 

In fact, to make this book as useful as possible, many of the 
programs are accompanied by explanations of how the program 
works. Studying the programs and explanations will show you 
techniques that you can use as you write your own programs. 

The programs range from games to loan and interest calcula- 
tors, from teaching you the notes of a keyboard to plotting points 
on a graph. There are programs which turn your computer into a 
powerful calculator and programs which test your skill at solving 
mathematical word problems. You'll find uses for your computer 
again and again as you expand your library of programs. 


Introduction 


Many microcomputers used in homes and schools today have 
limited memory. Some companies started with a 4K model, then 
later added more memory and more capabilities. For example, 
Radio Shack attracted the new home consumer market with the 
TRS-80 Model I, a 4K black-and-white computer. Most dealers 
are now Selling the Model IV (and others). Radio Shack’s color 
computer line started with a 4K model and a 16K Extended BASIC 
model. That 4K Color Computer (affectionately called CoCo) has 
been replaced by the TRS-80 Micro Color Computer, Model MC-10, 
a smaller, compact microcomputer in the $100 range. 

Commodore swept the home market with the 5K VIC-20 
(actually 3583 bytes of free memory), an easy-to-use color computer 
with a full-size keyboard which now sells for under $100. Early 
Atari 400 and 800 owners probably purchased their computers 
with 8K. Sinclair owners could purchase a 1K or 2K computer or 
could make one from a kit. 

Many people use their first computers to learn about com- 
puting, then upgrade to a more expensive computer with greater 
memory capacity. A lot of these early models are being shoved 
aside, given as hand-me-downs to another family member, or 
donated to schools. Many new computer owners are purchasing 
limited-memory computers because the price is attractive, and 
they figure any computer is better than no computer. Schools are 
purchasing low-end computers so they can get more computers 
and more students can have hands-on experience in class. 

But you may have found that owning a computer is much 
like buying a house — you need to keep buying peripherals to go 
with it. In most cases, the computer peripherals cost more than 
the computer, and you may not be willing to add on those expenses. 
You want to make do with what you have. 


But What Can You Do With 4K? 

There is much you can do within 4K, and without buying extras. 
You still have a very powerful machine without having to add 
anything on. You can enjoy your computer just as it is. 

I consider working within the memory limitations of a com- 
puter one of the challenges of that computer, just like having eight 
colors, a certain size screen, or particular graphics commands. 
You can't expect your microcomputer to do everything a mainframe 
computer can do — you didn't have to pay as much for your little 
computer. But it can doa few things that a big computer cannot do. 
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I hope these programs and ideas will be helpful to you and 
will whet your appetite so you can develop your own programs 
within the limitations of your computer. Although most of these 
programs are educational, I have tried to include a variety of sub- 
jects so you can get an idea of the many different applications for 
home computers. 

I assume you have a computer, a television or monitor to see 
what you're doing, and a cassette recorder with blank tapes to 
save your programs, plus all the necessary cables to connect every- 
thing. You don't need to buy anything else to run the programs 
in this book. 

The first section (Chapters 1-3) consists of programs that con- 
tain no graphics or sound statements. They are written in trans- 
latable BASIC, so you should be able to use them with any com- 
puter that uses BASIC. It was impossible to test the programs 
with all microcomputers, so explanations are included in case 
you need to make minor translations. Computers with larger 
memory capabilities may also use these programs. 

The second section (Chapters 4-9) consists of programs for 
specific computers — TRS-80 Model I, TRS-80 Color Computer, 
MC-10 Micro Color Computer, unexpanded VIC-20, T1-99/4, and 
TI-99/4A. (Although the TI computers do not have the memory 
limitations of the other machines, program versions have been 
included. They can usually be entered in a limited amount of 
time, and are useful to any computer owner.) 

The listings can even give you an idea of how to make these 
programs work on other computers. 
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Chapter 1 
Conserving Memory 


If you program efficiently, you can really fit quite a bit into 4K or 
less. Here are some suggestions for memory-saving programming 
techniques. 

¢ Delete REMark statements. As you are programming, 
REMark statements help to document your program so you can 
keep track of various sections of the program. However, if you 
need to conserve memory, the first and easiest step could be to 
remove all the REM statements. 

¢ Use short variable names. Many computers recognize only 
the first two letters of the name anyway, so the rest take up valu- 
able space. If you can use variables with one letter, you conserve 
even more memory than by using two-letter names. For example, 
REDSCORE and BLUESCORE may be shortened to R and B. 

¢ Repeat variable names where possible. For example, in 
the beginning of the program you may read in ten variables: 


19 FOR I=1 TO 18 
28 READ V 

30 PRINT V,V*V 
49 NEXT I 


Later in the program you have another counter loop. Use the 
variable I again: 


6960 FOR I=1 TO 1880 
618 NEXT I 


Many computers allow you to leave off the index in a NEXT 
statement: 


58 FOR J=1 TO 50 
60 NEXT 


¢ Use FOR-NEXT or GOSUB. Anytime you have repetitious 
code, see if a FOR-NEXT loop or a GOSUB procedure will work. 

¢ Plan all GOTO logic. If you have many GOTO statements 
in your program, it may be much more efficient to rearrange 
your program. 

¢ Use the DRAW command, if your computer allows, to 
create graphic displays. Subroutines or FOR-NEXT loops can save 
lines when used with the DRAW command. 

¢ DIMension wisely. If you need to use an array with 25 names, 
you waste valuable memory if you arbitrarily DIMension for 40 
names. Many computers automatically DIMension 11 elements 
whenever you use a subscripted number without a previous 
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DIMension statement. If you really need fewer subscripts, be 

sure to use the DIMension statement to save memory. Also remem- 

ber to use the zero element — you don't need to start with A(1). 
e¢ READ and DATA. If you have several assignment state- 

ments, a DATA and READ procedure may be more efficient: 

18 A=1 

20 B=3 

38 C=2 

49 D=5 

596 E=7 

is equivalent to 


18 READ A,B,C,D,E 


¢ Use ON-GOTO or ON-GOSUB instead of several logical 
IF-THEN statements. For example: 


10 IF I=1 THEN 649 
20 IF I=2 THEN 738 
38 IF I=3 THEN 879 
49 IF I=4 THEN 939 


is equivalent to 
18 ON I GOTO 649,738,878,930 


You may first need to make sure that variable I is a positive integer 
less than 5. 

© Leave out spaces if your computer allows it. The statements 
are harder to read, but use less space. If a BASIC word follows a 
variable name, a space may be required between the variable and 
the next word. 

¢ If your computer allows it, use multistatement lines. The 
most common statement separator is the colon. Some computers 
use the slash. Use abbreviations, if your computer allows them, 
to crowd more on each line. For example, many computers use ? 
for PRINT and ! or ’ (apostrophe) for REMark. Abbreviations 
alone will not save memory, but by using them you can put more 
statements and commands on a line, saving a small number of 
bytes otherwise used for additional line numbers. You need to be 
careful when you're combining statements if an IF-THEN state- 
ment is involved or if any program transfer statements go to one 
of the statements to be combined. 

¢ Use low line numbers. Often during program develop- 
ment it is wise to number your statements by tens so you can 
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later insert statements. I often plan different sections of the pro- 
gram starting with the thousands. After a program is complete, I 
save memory by renumbering the lines — perhaps using 10, 20, 
30, 40, and so on, or, even better, 1, 2, 3, 4, etc. 

Before you begin entering any of the programs in this book, 
take a look at Appendix A, “A Beginner's Guide to Typing In Pro- 
grams, and Appendix B, “How to Type In Programs.” These will 
help you understand how to enter the listings in this book into 
your own computer. 


Nouns 
Computers: VIC-20; TRS-80 Model I; TRS-80 16K Color Computer; MC-10; 
TI-99/4; TI-99/4A 


Following is an example of how to conserve memory by combin- 
ing lines. The first program, “Nouns,” works as is on a VIC-20. To 
add another section of DATA or to add graphics and sound, this 
program needs to take up less memory. 

Combining commands for one statement number usually 
saves five bytes per line (depending on your computer). In con- 
serving memory for Nouns, I went through the listing and marked 
every line that was referred to by another command — such as 
GOTO, GOSUB, or IF-THEN, plus every statement after an IF- 
THEN statement. I had to make sure those lines contained the 
correctly referenced line numbers. 

The second listing of Nouns shows how the lines were com- 
bined. For instance, notice that lines 4 through 30 in the VIC pro- 
gram were combined into lines 2 and 3 in the TRS-80 version. 
Lines 32 through 48 in the VIC version were combined into two 
lines, lines 4 and 5, in the TRS-80 program. Commands such as 
GOSUB were carefully modified to reflect the new line numbers 
in the second, crunched version of the program. Line 48 in the VIC 
program, for example, read GOSUB200. This is the last expression 
in line 5 of the TRS-80 program, but it was changed to GOSUB 22 
because of the new line numbering of this shorter listing. Com- 
bining lines in this way saves memory, but you need to be careful 
to prevent errors in line numbers. 

The second listing works on the TRS-80 Model I, TRS-80 16K 
Color Computer, and MC-10 computer. The third listing is the 
TI-99/4 or TI-99/4A version. Note that TI BASIC does not allow 
combining commands on one line, but you can combine PRINT 
statements. 

Nouns presents a quiz to identify nouns. A word is chosen 
randomly and printed on the screen. The user presses 1 if the 


Conserving Memory 


word is a person, 2 if the word is a place, 3 if the word is a thing, 
or 4 if the word is not a noun. After ten words a score is given. 
Since the answers are multiple-choice, the program does not 
continue until the correct number is chosen. The score is based 
on correct answers for the first response. 


Program 1-1. Nouns 


VIC-20 


4 PRINT" {CLR}" 
6 PRINTTAB(5) ;"**eeeeeeeO 
8 PRINTTAB(5);"* NOUNS *" 


1 
12 


PRINTTAB(5.) : "eee ke eRe RH 

PRINT 

PRINT"A NOUN IS A WORD THAT" 
PRINT"IS A PERSON, {2 SPACES}PLACE, " 
PRINT"OR THING." 

PRINT 

PRINT"YOU WILL BE SHOWN A" 
PRINT"WORD.{2 SPACES}PRESS THE" 
PRINT"RIGHT NUMBER FOR" 
PRINT"PERSON, PLACE, THING, " 
PRINT"OR NOT A NOUN." 

DIMWS (100) ,W(190) 

FORC=8TO199 

READWS (C) ,W(C) 

NEXT C 

NS$(1)="PERSON" 

NS (2)="PLACE" 

NS (3)="THING" 

N$(4)="NOT A NOUN" 


GOSUB208 

D= 

SC=8 

FORI=1T0O10 

PRINT" {CLR}" 

FL=0 

R=INT (RND(@)*1081) 


IFW(R)=OTHEN58 
PRINT"{2 SPACES}** "swS(R);" **" 
PRINT 
FORC=1T04 
PRINTC;NS(C) 
NEXTC 

PRINT 

PRINT"?" 

GETES 
IFES=""THEN76 
=ASC(ES)-48 
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82 IF(E<1)+(E>4)THEN76 

84 PRINTNS(E) 

86 IFE=W(R)THEN96 

88 PRINT"SORRY, TRY AGAIN." 

98 PRINT 

92 FL=1 

94 GOTO76 

96 PRINT"CORRECTI!" 

98 IF FL=l1 THEN 1904 

196 SCc=SC+l 

192 w(R)=0 

184 GOSUB200 

196 NEXT I 

197 PRINT" {CLR}" 

198 PRINTTAB(5); “NOUNS” 

110 PRINT 

112 PRINT"SCORE:" 

114 PRINTSC; "CORRECT" 

116 PRINTTAB(5);"OUT OF 18 WORDS" 

118 PRINT 

128 PRINT 

121 D=D+1l: IFD>8THEN399 

122 PRINT"PRESS 1 TRY AGAIN" 

124 PRINTTAB(6);"2 END" 

126 GETES 

128 IF ES="l1"THEN 50 

130 IF ES="2"THEN3G@ 

132 GOTO126 

200 PRINT 

202 PRINT"PRESS RETURN" 

204 GETES 

206 IFES=""THEN204 

208 IFASC(ES$)<>13 THEN 204 

216 RETURN 

226 DATAMAN,1,BOY,1,D0G,3,TEXAS, 2, ROGER, 1,WALL,3,W 
AS, 4, UTAH, 2, IDAHO, 2, CHAIR, 3, HAT, 3 

222 DATAHAND, 3,GIRL,1,LADY,1,JILL,1,CINDY,1,J0E,1, 
BOB, 1, COWBOY, 1, TOWN, 2, SKY, 2, HOME, 2 

224 DATARIVER, 3,HILL,3,GLASS,3,CUP,3,DISH,3,WENT, 4 
, BEFORE, 4, AFTER, 4, WHEN, 4, NOW, 4, THEN, 4 

226 DATADRESS, 3, PANTS, 3,SHIRT,3,SOCKS,3,SHOES,3,MA 
P,3,FLAG,3,MOTHER,1,FATHER,1,DAD,1 

228 DATASISTER, 1, BROTHER, 1, BABY,1,DESK,3,TABLE, 3,W 
ATER, 3, FLOWER, 3, OHIO, 2, IOWA, 2,MAINE, 2 

230 DATABOOK, 3, PAPER, 3, PENCIL, 3,BOX,3,TREE, 3, BEAR, 
3,FOX,3, BALL, 3, QUIET, 4,QUICK,4 

232 DATABLUE, 4,GREEN,4,BEADS,3,ANNE,1,ABLE,4,ABOUT 
,4, ABOVE, 4,ACROSS,4,ACTOR,1,AGAIN,4 

234 DATABACON, 3, BAKE, 4, BIRD, 3, BANANA, 3, BEACH, 2, PAR 
IS,2, LONDON, 2, JAPAN, 2,MEXICO, 2 
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23 


23 


39 


6 DATAAFRICA, 2,CANADA, 2,CAR, 3,NEVER, 4,WALKED,4,J 
UMPED,4,OF,4,ARE,4,BY,4,ATE,4,BIG,4 

8 DATAINTO,4,HAPPY,4,SAD,4,ALICE,1,SMALL,4, EGYPT 
,2, TEACHER, 1,1S,4 

6 END 


Program 1-2. Nouns 


2 


Wn & 


TRS-80 Model | and Color Computer; MC-10 


CLS: PRINTTAB(12); "***eeeeee", DRINTTAB(L2):"* NOU 
NS *":PRINTTAR(12);"*****eeee": DRINT: PRINT"A NOU 
N IS A WORD THAT IS A"“:PRINT"PERSON, PLACE, OR T 
HING. " 

PRINT: PRINT"YOU WILL BE SHOWN A WORD.":PRINT"PRE 
SS THE RIGHT NUMBER FOR":PRINT"PERSON, PLACE, TH 
ING, OR":PRINT"NOT A NOUN." 
DIM WS (198),W(10@) 

FORC=6TO19@ : READWS (C) , W(C) sNEXTC:N$ (1 )="PERSON": 
NS (2)="PLACE":NS (3 )="THING":NS$(4)="NOT A NOUN":G 
OSUB22 
S=0:FORI=1T0O1@ 
CLS: F=@ 
R=RND(1900):IF w(R)=0 THEN 8 

PRINT" ** "“swS(R)3" **": PRINT: FORC=1T04: PRINTC; 
NS$ (C): NEXT: PRINT: PRINT" ?" 

ES=INKEYS$: IFES=""THEN1@ 

E=ASC(E$)-48: IF(E<1)+(£>4)THEN1S 
PRINTNS (E): IFE=W(R)THEN14 

PRINT"SORRY, TRY AGAIN. ":PRINT:F=1:GOTO1@ 

PRINT "CORRECTI": IFF=1THEN16 

S=S+l1:wW(R)=0 

GOSUB22:NEXT 

CLS :PRINTTAB(5): "NOUNS": PRINT: PRINT"SCORE: ": PRI 
NTS; "CORRECT": PRINTTAB(5);"OUT OF 18 WORDS":PRI 
NT: PRINT: D=D+1 : IFD>8THEN33 

PRINT"PRESS 1 TRY AGAIN": PRINTTAB(6);"2 END" 
ES=INKEYS : IFES="1 "THEN6 

IFES="2"THEN33 

GOTO19 

PRINT:PRINT"PRESS ENTER" 

ES=INKEYS: IFES=""THEN23 

IF ASC(ES)<>13THEN23 

RETURN 

DATAMAN, 1,BOY,1,D0G,3, TEXAS, 2, ROGER, 1,WALL,3,WA 
S,4,UTAH, 2, IDAHO, 2,CHAIR,3,HAT,3,HAND,3,GIRL,1, 
LADY,1,JILL,1,CINDY,1,J0E,1 

DATABOB, 1, COWBOY, 1, TOWN, 2, SKY, 2, HOME, 2, RIVER, 3, 
HILL, 3,GLASS,3,CUP,3,DISH,3,WENT,4, BEFORE,4,AFT 
ER, 4,WHEN, 4,NOW, 4, THEN, 4 


28 


29 


30 


31 
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DATADRESS, 3, PANTS, 3,SHIRT, 3, SOCKS, 3, SHOES, 3, MAP 
,3,FLAG,3,MOTHER, 1,FATHER,1,DAD,1,SISTER,1,BROT 
HER, 1,BABY,1,DESK, 3, TABLE, 3 

DATAWATER, 3, FLOWER, 3, OHIO, 2, IOWA, 2,MAINE, 2, BOOK 
, 3, PAPER, 3, PENCIL, 3, BOX, 3, TREE, 3, BEAR, 3, FOX, 3,B 
ALL, 3,QUIET,4,QUICK, 4 

DATABLUE, 4,GREEN, 4, BEADS, 3, ANNE, 1,ABLE,4, ABOUT, 
4,ABOVE, 4, ACROSS, 4,ACTOR,1,AGAIN, 4, BACON, 3, BAKE 
, 4, BIRD, 3, BANANA, 3, BEACH, 2 

DATAPARIS, 2, LONDON, 2,JAPAN, 2,MEXICO, 2,AFRICA, 2, 
CANADA, 2,CAR, 3,NEVER,4,WALKED,4,JUMPED,4,0F,4,A 
RE, 4,BY,4,ATE,4,BIG,4 

DATAINTO, 4,HAPPY,4,SAD,4,ALICE,1,SMALL,4, EGYPT, 
2, TEACHER, 1,1S,4 


33 


END 


Program 1-3. Nouns 


110 
126 


TI-O9/4A 


CALL CLEAR 

PRINT TAB(5S);"*****#eee";7AB(S);"* NOUNS *":TA 
B(5 ) ° OReeKRKRKKKK ER 

PRINT :"YOU WILL BE SHOWN A WORD.{3 SPACES}PRE 
SS THE RIGHT NUMBER FOR PERSON, PLACE, THING, 
OR{4 SPACES}NOT A NOUN." 
DIM WS (190),w(190) 

FOR C=8 TO 100 

READ WS$(cC),W(C) 

NEXT C 

NS (1)="PERSON" 

NS (2)="PLACE" 

NS (3)="THING" 

N$(4)="NOT A NOUN" 

GOSUB 578 

D=0 

SCc=0 

FOR I=l1 TO 18 

CALL CLEAR 

FL=0 

RANDOMIZE 

R=INT(101*RND) 

IF w(R)=8 THEN 290 

PRINT “ ¥** "swS(R)3:" *¥*"s3 
FOR C=1 TO 4 

PRINT C;:NS$(C) 

NEXT C 

PRINT :"?" 

CALL KEY(@,K,S) 

IF (K<49)+(K>52)THEN 360 
PRINT :N$ (K-48) 
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630 


640 


658 


666 


6708 


680 


690 
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IF K-48=W(R)THEN 430 
PRINT "SORRY, TRY AGAIN.":: 


FL=1 
GOTO 3698 
PRINT “CORRECT! " 


IF FL=l THEN 470 

SC=SC+1l 

w(R) = 

GOSUB 574 

NEXT I 

CALL CLFAR 

PRINT TAB(5): "NOUNS": : "SCORE: ":SC; "CORRECT": TA 
B(5);"OUT OF 10 WORDS"::: 

D=D+1l 

IF D>8 THEN 690 

PRINT "PRESS 1 TRY AGAIN": TAB(7);"2 END" 

CALL KEY(@,K,S) 

IF K=49 THEN 240 

IF K=5@ THEN 690 ELSE 5408 

PRINT :"PRESS ENTER" 

CALL KEY(@,K,S) 

IF K<>13 THEN 580 

RETURN 

DATA MAN, 1,BOY,1,D0G,3,TEXAS, 2, ROGER, 1,WALL, 3, 
WAS, 4, UTAH, 2, IDAHO, 2,CHAIR, 3,HAT, 3,HAND, 3,GIRL 
,1,LADY,1 

DATA JILL,1,CINDY,1,JOE,1,BOB,1,COWBOY,1,TOWN, 
2,SKY,2,HOME, 2, RIVER, 3,HILL,3,GLASS,3,CUP,3,DI 
SH,3,WENT, 4 

DATA BEFORE, 4,AFTER,4,WHEN, 4,NOW, 4, THEN, 4,DRES 
S,3,PANTS,3,SHIRT,3,SOCKS,3,SHOES,3,MAP,3, FLAG 
,3,MOTHER,1 

DATA FATHER,1,DAD,1,SISTFER,1,BROTHER,1,BABY,1, 
DESK, 3,TABLE, 3,WATER, 3, FLOWER, 3,OHIO, 2, IOWA, 2, 
MAINE, 2 

DATA BOOK, 3, PAPER, 3,PENCIL,3,BOX,3,TREE,3,BEAR 
,3,FOX,3,BALL, 3, QUIET, 4,QUICK, 4, BLUE, 4,GREEN, 4 
, BEADS, 3 

DATA ANNE, 1,ABLE,4,ABOUT, 4,ABOVE,4,ACROSS,4,AC 
TOR, 1,AGAIN, 4, BACON, 3, BAKE, 4, BIRD, 3, BANANA, 3,B 
EACH, 2 

DATA PARIS, 2,LONDON, 2,JAPAN, 2,MEXICO,2,AFRICA, 
2,CANADA, 2,CAR,3,NEVER, 4,WALKED,4,JUMPED,4,0OF, 
4,ARE,4 

DATA BY,4,ATE,4,BIG,4, INTO, 4,HAPPY,4,SAD,4,ALI 
CE,1,SMALL,4, EGYPT, 2,TEACHER,1,IS,4 

END 
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Translating programs from one version of BASIC to another 
computer's BASIC can become a skill of its own. Some BASIC 
programs are translatable, but others aren't. It all depends on 
how complex the program is and what special features of a com- 
puter it uses. 

Many of the programs in this book are computer-specific. In 
other words, the program will work on only one computer, using 
that machine’s version of BASIC. Others, however, can be trans- 
lated from one computer to another. The short programs listed in 
this chapter, and in Chapter 3, are good examples of “translatable” 
programs. All of these programs can be entered into almost any 
home computer which uses BASIC. This is possible because the 
programs are simple and use no special graphic or sound features 
peculiar to only one or two computers. 

Before each program in this book is a note indicating which 
computers can use the program as it’s listed. Sometimes this note 
will list various computers. Other times it will simply read trans- 
latable. When you see this word, you should be able to type the 
program in and RUN it on your own computer, no matter what 
model it is. All you have to do is look the program over carefully and 
make a few simple changes. The most important commands that 
must be changed from one computer to another are listed below: 


To clear the screen: 


TRS-80, MC-10: CLS 

VIC-20, 64, PET: PRINT “{CLR}” (SHIFT and CLR/HOME) 
TI-99/4, TI-99/4A: CALL CLEAR 

Apple: HOME 

Atari: PRINT“ ” (ESC CTRL CLR) 

Timex/Sinclair: CLS 


Random number from 1 to A: 


TRS-80, MC-10: RND(A) 
TRS-80, Extended BASIC: R= RND(-TIMER):R =RND(A) 
VIC-20, 64, PET: INT(A*RND(0) + 1) 
TI-99/4, TI-99/4A: RANDOMIZE 
INT(A“RND + 1) 
Apple: RND(A) +1 
Apple Ile: INT(A*RND(1) + 1) 
Atari: INT(A*RND(1) + 1) 
Timex/Sinclair: INT(A*RND +1) 
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To detect a key being pressed: 


TRS-80, MC-10: E$ =INKEY$ 
VIC-20, 64, PET: GET E$ 

TI-99/4, TI-99/4A: CALL KEY(0,K,S) 
Apple: GET E$ 

Atari: E=PEEK(764) 

Timex/Sinclair: LET E$ = INKEY$ 


Not all of the computers referred to here have programs specific 
to them in the book, but I've included the commands to help you 
as you translate the programs in this chapter and in Chapter 3 to 
your own computer. 

Besides these changes, you may want to add graphics and 
sound to enhance the program as it is printed here. Commands 
involving string variables may need to be changed as well. You 
will probably also want to adjust the PRINT statements to reflect 
the number of columns your own monitor screen has. 

If the note listing the computers a program can run on indi- 
cates it works for the TRS-80 Color Computer, it will work for 
both the 4K and 16K models, as well as with the 16K Extended 
BASIC computer. 

Some of the VIC-20 programs in this book have a short line 
before the listing, stating that lines must be entered using abbre- 
viations. If you don’t abbreviate the keywords in these lines, the 
program will not work. Be sure to use abbreviations for all BASIC 
keywords when you type in the lines marked with an asterisk 
(*). If you don't, those programs probably won't run; if they do, 
they won't work correctly. Most of the abbreviations are simply 
the first letter, then SHIFT, and then the second letter of the key- 
word. Refer ta Appendix C, “How to Abbreviate Keywords,” for 
a complete list of BASIC keywords and their abbreviations on 
the VIC-20. 

If you need to edit a line, be sure the line also contains abbrevi- 
ations when you are through. For example, if you LIST a line that 
you previously typed with abbreviations, the full keyword is dis- 
played. If you then edit that line on the screen, part of it may be cut 
off, since the VIC-20 will show a maximum of only 87 characters 
ona line. Your program may not run if this happens. You need to 
either retype the entire line or replace all the keywords in the line 
you LISTed with abbreviations. This is especially important with 
all lines marked with an asterisk (*) in the VIC-20 program 
listings. 
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Roman Numerals 
Computers: VIC-20; TRS-80 Color Computer; TRS-80 Model I; MC- 10; 
TI-99/4; TI-99/4A 


“Roman Numerals” illustrates how a standard BASIC program can 
be adapted for other computers. The first listing works exactly as 
is on the TRS-80 Model I, TRS-80 Color Computer, and MC-10. The 
second listing shows how the program was changed for the VIC-20. 


The commands for clearing the screen, choosing a random num- 
ber, and detecting a key pressed were changed, and some of the 
PRINT statements were adapted for the 22-column screen and 
color capabilities of the VIC-20. The third listing is the TI-99/4 or 


TI-99/4A version. 

Here’s how Roman Numerals works: 

Line Function 

110-150 Reads from DATA the Roman numeral values for the 
Arabic numbers in hundreds H§, tens T$, and ones S$. 

160 Clear the screen. 

170 Initialize R$ to be the null string. 

180-190 Choose a random number from 1 to 1999 and set NN 
equal to N. 

200-220 = Ifthe number starts with 1000, set R$ to “M” and 
subtract 1000 from N. 

230-260 Calculate the hundreds value for the Roman numeral. 

270-300 Calculate the tens value for the Roman numeral. 

310-320 Calculate the ones value for the Roman numeral. 

330-340 PRINT the Roman numeral, R$. 

350-380 Ask for the corresponding number as INPUT. 

390 Test user’s answer. 

400 PRINT correct answer if user’s answer is incorrect. 

410-420 If user’s answer is incorrect, PRINT “PRESS ENTER” 
message, then return for another problem. 

430-440 PRINT message for correct answer. 

450-490 PRINT option for another problem and branch 
appropriately. 

500 END. 


Program 2-1. Roman Numerals 


TRS-80 Color Computer; MC- 10; TRS-80 Model | 


110 FOR I=1 TO 9 
128 READ HS$(1),TS$(1I),SS(IL) 
138 NEXT I 
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149 DATA C,X,1I,CC,XX, 11,CCC,XXX, III,CD,XL,1V,D,L,V 

158 DATA DC,UX,VI,PCC, LXX, VII, DCCC, LXXX, VIII,CM, XC 
,1X 

168 CLS 

172 RS=" " 

180 N=RND(1999) 

198 NN=N 

200 IF N<1006 THEN 230 

210 RS="mM" 

2280 N=N-1900 

230 IF N<19@ THEN 272 

249 NR=INT(N/10@) 

258 RS=RS$+HS (NR) 

268 N=N-NR*190 

276 IF N<1@ THEN 319 

288 NR=INT(N/1@) 

298 RS=RS+TS (NR) 

380 N=N-NR*19 

318 IF N=0 THEN 336 

328 RS=RS$+SS$(N) 

330 PRINT "GIVEN THE ROMAN NUMERAL" 

348 PRINT R$ 

358 PRINT "WHAT IS THE CORRESPONDING" 

369 PRINT "NUMBER?" 

378 INPUT ANS 

388 PRINT 

398 IF ANS=NN THEN 439 

406 PRINT “THE NUMBER IS";NN 

418 INPUT "PRESS <ENTER>";ES 

426 GOTO 169 

430 PRINT "CORRECT!" 

449 PRINT 

45@ PRINT “ANOTHER PROBLEM?" 

468 PRINT "(Y/N)" 

476 ES=INKEYS$ 

480 IF ES="Y" THEN 160 

496 IF ES$<>"N" THEN 470 

508 END 


Program 2-2. Roman Numerals 
VIC-20 
1198 FOR I=1 TO 9 
126 READ H$(I),TS$(1I),S$(I) 
138 NEXT I 
149 DATA C,X,1,CC,XX,1I1I,CCC,XXX, III,CD,XL,IV,D,L,V 
15@ DATA DC,LX,VI,DCC,LXX, VII, DCCC, LXXX, VIII,CM,XC 
, 1X 
168 PRINT" {CLR}" 
178 RS=" TT 
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496 
500 


N=INT (1999*RND(@) )+1 

NN=N 

IF N<100@ THEN 230 

RS="M" 

N=N-1900 

IF N<100 THEN 279 

NR=INT(N/108@) 

RS=RS$+HS$ (NR) 

N=N-NR*100 

IF N<19 THEN 319 
NR=INT(N/10) 
RS=RS$+TS$ (NR) 
=N-NR*18 

IF N=6 THEN 339 
R$=R$+S$ (N) 

PRINT" {BLU}GIVEN THE ROMAN":PRINT"NUMERAL{ RED} 


PRINT RS 

PRINT: PRINT" {BLU}WHAT IS THE" 
PRINT"CORRESPONDING NUMBER? {BLK}" 
INPUT ANS 

PRINT 

IF ANS=NN THEN 430 

PRINT" {BLU}THE NUMBER IS";NN 
PRINT: INPUT"{GRN}PRESS <RETURN>";ES$ 
GOTO 162 

PRINT" {BLU }CORRECT!" 

PRINT 

PRINT "ANOTHER PROBLEM?" 

PRINT "(Y/N)" 

GET ES 

IF ES="yY" THEN 160 

IF E$<>"N" THEN 470 

END 


Program 2-3. Roman Numerals 


TI-99/4; TI-99/4A 


FOR I=1 TO 9 

READ HS$(1I),T$(1I),SS$(1) 

NEXT I 

DATA C,X,1,CC,XX,11,CCC,XXX, lLII,CD,XL,1V,D,L,V 
DATA DC,LX,VI,DCC,LXX, VII, DCCC, LXXX, VIII, CM, XC 
, 1X 

CALL CLEAR 

R$=" as 

RANDOMIZE 

N=INT(1999*RND)+1 

NN=N 

IF N<1000 THEN 230 
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214 RS="M" 

220 N=N-1800 

230 IF N<190 THEN 276 

248 NR=INT(N/199) 

258 RS=RS&HS (NR) 

260 N=N-NR*169 

270 IF N<16 THEN 310 

280 NR=INT(N/19) 

290 RS=RS&TS (NR) 

388 N=N-NR*10 

318 IF N=0 THEN 339 

320 RS=RS&SS$(N) 

338 PRINT "GIVEN THE ROMAN NUMERAL" 
349 PRINT RS 

350 PRINT :"WHAT IS THE CORRESPONDING" 
366 PRINT “NUMBER?” 

378 INPUT ANS 

389 PRINT 

398 IF ANS=NN THEN 439 

489 PRINT "THE NUMBER IS";NN 
418 INPUT "PRESS <ENTER>":ES$ 
428 GOTO 166 

430 PRINT "CORRECT!" 

448 PRINT 

458 PRINT "ANOTHER PROBLEM?" 
469 PRINT "(Y/N)" 

478 CALL KEY(@,K,S) 

486 IF K=89 THEN 160 

498 IF K<>78 THEN 4790 

500 END 


Adverbs 


Computers: Translatable 

Here is a program written in portable or translatable BASIC. You 
should be able to translate this program to the version of BASIC 
your computer uses without much difficulty. You can probably 
tell which lines to change for your particular computer. The list- 
ing works as is on the TRS-80 Model I, TRS-80 Color Computer, 
and MC-10. 


Here’s how Adverbs works: 

Line Function 

110-200 Clear screen; PRINT instructions. 

210-260 READ words in as data (article, noun, verb, and adverb 
for nine of each type of word). 

270-320 Wait for user to press ENTER. 
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330 Clear screen. 

340 Initialize score. 

350 Perform quiz ten times. 
360 Clear screen. 


370-400 § Randomly choose words for sentence. 

410-470 Randomly choose order for sentence and print 
sentence. 

480-500 Enter answer. 

510-530 If answer is incorrect, PRINT correct answer. 

540-550 ‘If answer is correct, PRINT message and increment 
score. 

560-610 Wait for user to press ENTER for next problem. 

620-680 Clear screen and PRINT score. 

690-720 PRINT option to try again and branch appropriately. 

730-740 Clear screen and END. 


Program 2-4. Adverbs 
Translatable 

118 CLS 

120 PRINT TAB(8); "*##eeeR KR KERN 

130 PRINT TAB(8);"* ADVERBS *" 

140 PRINT TAB(S); "**eeRRK KEEN 

158 PRINT 

168 PRINT 

178 PRINT “YOU WILL BE SHOWN A SENTENCE." 

180 PRINT 

198 PRINT "TYPE THE ADVERB" 

2600 PRINT "THEN PRESS <ENTER>. " 

218 FOR C=8 TO 9 

220 READ A$(C),BS(C),c$(c),D$(c) 

230 NEXT C 

246 DATA THE, CAT, CRAWLED, QUICKLY,A,DOG, JUMPED, QUIE 
TLY,MY, DEER, RAN, HAPPILY, YOUR, COW, LOPED, SLYLY 

258 DATA HIS, FOX, WIGGLED, SLOWLY,HER,WOLF,GALLOPED, 
JOYFULLY, ITS, BOY, SPED, RAPIDLY, OUR, GIRL, CREEPED 
, SILENTLY 

268 DATA THAT, BUG, HURRIED, CALMLY, ONE, BEAR, MOVED, SW 
IFTLY 

278 PRINT 

288 PRINT 

298 PRINT "PRESS <ENTER> TO START.” 

380 ES=INKEYS 

310 IF ES="" THEN 396 

326 IF ASC(E$)<>13 THEN 309 

338 CLS 

348 s=@ 
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358 FOR T=1 TO 10 

366 CLS 

378 A=RND(10)-1 

380 B=RND(19)-1 

399 C=RND(10)-1 

499 D=RND(1@)-1 

418 I=RND(3) 

428 ON I GOTO 438,458,479 

438 PRINT AS(A):" ":BS(B):" “:C$(C):" “z:D$(D);:"." 
449 GOTO 48¢ 

458 PRINT AS(A);" ";BS(B):" "sD$(D)z:" “sc$(c);"." 
468 GOTO 480 

476 PRINT D$(D);" "sAS(A):" “sBS(B):" "s:CS(C);"." 
488 PRINT 

490 INPUT "ADVERB ";VS$ 

5@@ PRINT 

510 IF VS=DS(D) THEN 54@ 

520 PRINT "THE ADVERB IS: ";DS$(D) 
538 GOTO 568 

540 PRINT "CORRECT!" 

558 s=S+l 

560 PRINT 

578 PRINT "PRESS <ENTER>." 

588 ES=INKEYS 

590 IF ES="" THEN 580 

690 IF ASC(E$)<>13 THEN 580 

618 NEXT T 

628 CLS 

638 PRINT "YOUR SCORE IS" 

640 PRINT TAB(5);"“RIGHT",S 

658 PRINT TAB(5);"WRONG",10-S 
668 PRINT 

678 PRINT 

686 PRINT 

699 PRINT "TRY AGAIN? (Y/N)" 

780 ES=INKEYS 

719 IF ES="Y" THEN 330 

720 IF ES<>"N" THEN 700 

738 CLS 

749 END 
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Quick 


Chapter 3 
Quick Calculations 


You can use your computer to perform important calculations. In 
fact, [know a bank that bought a microcomputer system (for about 
$6000). When asked what they did with their computer, they 
said it was used for amortization. You can use your own $100 
computer to do the same thing. 

You can use your computer as a glorified calculator — figuring 
conversions and formulas. The difference between a calculator 
and a computer is that with a computer you can put the formula 
in a program once and then not worry about it again. You can 
RUN the program and input known values. The program can 
give you the final answer almost instantly. With a calculator, you 
need to remember the equation or formula for each problem. 

Let’s look at some examples. The simple program below con- 
verts an angle in degrees to an angle in radians. The general con- 
version formula is 180 degrees= 7 radians. 


110 PRINT 

126 INPUT “NUMBER OF DEGREES = ";D 
136 PRINT 

149 PRINT “RADIANS: ";D*3.14159/186 
158 GOTO 118 


Type in the program, then RUN. The computer will ask for the 
number of degrees. Enter a number, such as 45. The equivalent 
number of radians in decimal form will be printed. The program 
continues until you press RUN/STOP or BREAK. 

Many microcomputers allow you to define a function at the 
beginning of the program, calling it a variable name. Later, any 
calculations using that variable will evaluate the function. There 
are several restrictions, depending on the type of computer you 
have. One of the requirements is that the computer must process 
the line defining the function before the function is actually used. 
In some computers the definition statement must have a lower 
line number than any line in which the function is used. To play 
it safe, put definitions at the beginning of the program. 

There are several forms of the definition statement. The 
Commodore, Apple, and TRS-80 use DEF FN name (variable), 
where a variable is specified in parentheses and the name is 
often a letter. Some computers allow functions to be redefined 
anywhere in the program. An example is: 


198 DEF FN A(R)=3.14159*R*R 
206 PRINT FN A(5) 
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The formula with the value of 5 for R is evaluated and printed. 
In TI BASIC, leave out FN. More than one variable is permit- 
ted, and you don't have to have a dependent variable: 


198 DEF A(R)=3.14159*R*R 
208 PRINT A(5) 


or 


109 DEF R16=INT(16*RND+1) 
280 CALL COLOR(5,R16,R16) 


Each time R16 is used, arandom number from 1 to 16 is chosen. 
Within one command you can use the function several times: 


219 CALL HCHAR(R16,R16,R16+63, R16) 


Suppose you want to evaluate the expression 10x? + 7x +1 for 
values of x equal to 0, 1, 3, 5, -1, and —5. Here is one way it 
could be done: 

100 DEF FNA(X)=10*X*X+7*X+1 

110 PRINT 

120 FOR I=1 TO 6 

130 READ X 

140 PRINT "X = "3X,"A(X) = ";PNA(X) 
158 NEXT I 

160 PRINT 

178 DATA 9,1,3,5,-1,-5 

188 END 


Line 100 defines the function A(X). The space between FN 
and A(X) is optional, so to save memory you can leave it out, as 
above. Line 130 reads the values for X from the DATA statement 
in line 170. Line 140 prints the X value and the evaluated 
function. 

The following programs illustrate how you can use your 
computer to take the drudgery out of calculations. These pro- 
grams can be translated for your computer quite easily. If you 
want, you can combine lines as shown in Chapter 1 to make the 
listings shorter. Remember to use your own computer's com- 
mands for such things as clearing the screen, creating random 
numbers, or detecting a key pressed. 


Conversions 
Computers: Translatable 


This program includes conversion factors for linear measurements. 
First, choose which measurement you need to convert, then 
enter a number. The equivalent measurement is printed. You can 
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use this general form to write your own program for the conver- 
sions you often need. 


Program 3-1. Conversions 
Translatable 


18 CLS 

28 PRINT "** CONVERSIONS **" 

38 PRINT 

49 PRINT "CHOOSE: " 

5@ PRINT “ 1 CENTIMETER TO FOOT" 
68 PRINT " 2 FOOT TO CENTIMETER" 
78 PRINT " 3 CENTIMETER TO INCH" 
88 PRINT " 4 INCH TO CENTIMETER" 
98 PRINT " 5 INCH TO FOOT" 

168 PRINT " FOOT TO INCH” 


6 
1196 PRINT " 7 METER TO FOOT" 
126 PRINT " 8 FOOT TO METER" 
138 PRINT " 9 FEET TO MILE" 
148 PRINT "10 MILE TO FEET" 
158 PRINT "ll MILE TO KILOMETER" 
168 PRINT "12 KILOMETER TO MILE" 
178 PRINT "13 METER TO YARD" 
186 PRINT "14 YARD TO METER" 
199 INPUT A 
200 IF A>14 THEN 190 
210 IF A<l THEN 190 


228 PRINT 

238 PRINT 

248 ON A GOTO 258,300,350, 480, 459, 508, 550,608,650, 
788,758, 888,850,900 

258 PRINT "1 CENTIMETER = .832888 FOOT" 

268 PRINT 

278 INPUT "CENTIMETERS = ";N 


280 PRINT .632808*N;" FOOT" 

298 GOTO 948 

306 PRINT "1 FOOT = 38.48906 CENTIMETER" 
318 PRINT 

326 INPUT “NUMBER OF FEET = ";N 

338 PRINT 30.48006*N;" CENTIMETERS" 

348 GOTO 9498 

358 PRINT "1 CENTIMETER = .39378 INCH" 
366 PRINT 

378 INPUT “NUMBER OF CENTIMETERS = ";N 
386 PRINT N*.39370;" INCH" 

398 GOTO 949 

40@ PRINT "1 INCH = 2.549085 CENTIMETER" 
416 PRINT 

420 INPUT "NUMBER OF INCHES = ";N 

439 PRINT N*2.549005;" CENTIMETERS" 
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449 GOTO 949 

450 PRINT "1 INCH = 1/12 FOOT" 

4608 PRINT 

476 INPUT "NUMBER OF INCHES = ";N 
488 PRINT N/12;:" FOOT" 

498 GoTO 949d 

500 PRINT "1 FOOT = 12 INCHES" 

518 PRINT 

520 INPUT "NUMBER OF FEET = ";N 
530 PRINT 12*N;" INCHES" 

548 GOTO 946 

550 PRINT "1 METER. = 3.288833 FEET” 
560 PRINT 

576 INPUT "METERS = “;N 

580 PRINT 3.280833*N;" FEET" 

599 GOTO 948 

688 PRINT "1 FOOT = .3948006 METER" 
618 PRINT 

620 INPUT "NUMBER OF FEET = ";N 
630 PRINT .3048006*N;:" METER" 

649 GOTO 946 

658 PRINT "1 FOOT = 1/5288 MILE" 
660 PRINT 

670 INPUT "NUMBER OF FEET = ";N 
686 PRINT N/5286;" MILE" 

696 GOTO 949 

766 PRINT "1 MILE = 5288 FEET" 

710 PRINT 

726 INPUT "MILES = ";N 

730 PRINT 5286*N;:" FEET" 

748 GOTO 9408 

750 PRINT "1 MILE = 1.68935 KILOMETERS" 
768 PRINT 

776 INPUT “MILES = ";N 

786 PRINT 1.60935*N;" KILOMETERS" 
798 GOTO 949 

869 PRINT "1 KILOMETER = .62137 MILE" 
818 PRINT 

820 INPUT "KILOMETERS = ";N 

830 PRINT N*.62137;" MILES" 

848 GOTO 949 

858 PRINT "1 METER = 1.993611 YARDS" 
869 PRINT 

878 INPUT "METERS = ";N 

888 PRINT N*1.993611;" YARDS" 

898 GOTO 949 

988 PRINT "l YARD = .91449183 METER" 
9148 PRINT 

920 INPUT "YARDS = ";N 
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930 PRINT N*.91449183;" METERS" 
949 PRINT 

958 PRINT "CHOOSE: " 

969 PRINT " 1 ANOTHER PROBLEM" 
976 PRINT " 2 END PROGRAM" 

988 AS=INKEY$ 

999 IF AS="1" THEN 18 

1000 IF AS$<>"2" THEN 986 

1918 PRINT 

1826 END 

Distance 


Computers: Translatable 

Any type of formula can be put into a simple program. This pro- 
gram uses the formula Distance = Rate * Time. It allows you to 
choose which item becomes the unknown. You input the known 
values, and the unknown value will be printed. 


Program 3-2. Distance 
Translatable 


18 CLS 

26 PRINT "**DISTANCE=RATE*TIME**" 
38 PRINT 

46 PRINT 

59 PRINT “WHICH IS THE UNKNOWN?" 
60 PRINT " 1 DISTANCE” 

76 PRINT " 2 RATE" 

80 PRINT " 3 TIME" 

98 AS=INKEYS 

169 IF AS="2" THEN 2190 

119 IF A$="3" THEN 298 

126 IF AS$<>"1l" THEN 90 

138 PRINT 

149 PRINT 

158 PRINT "DISTANCE = RATE * TIME" 
168 PRINT 

178 INPUT "RATE = ";R 

188 INPUT "TIME = ";T 

198 PRINT "DISTANCE =";R*T 

288 GOTO 360 

218 PRINT 

226 PRINT 

239 PRINT "RATE = DISTANCE/TIME" 
248 PRINT 

258 INPUT "DISTANCE = ":D 

260 INPUT "TIME = ";T 

278 PRINT “RATE =";D/T 

288 GOTO 360 
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290 
388 
319 
320 
330 
340 
350 
360 
379 
380 
390 
496 
416 
420 
430 
446 
456 


PRINT 

PRINT 

PRINT "TIME = DISTANCE/RATE" 
PRINT 

INPUT "DISTANCE = ";D 
INPUT "RATE = "sR 

PRINT "TIME =":D/R 

PRINT 

PRINT 

PRINT "CHOOSE: " 

PRINT " 1 ANOTHER PROBLEM" 
PRINT " 2 END PROGRAM" 
AS=INKEYS 

IF AS="1" THEN 30 


IF A$<>"2" THEN 410 


PRINT 
END 


Squares 
Computers: Translatable 


“Squares” calculates the area, side, or perimeter of a square if 
you know one of these quantities. Line 10 clears the screen. Lines 
90, 260, and 520 detect a key pressed. You may need to change 
these lines to GET A$ or CALL KEY(0,K,S) for your particular 
computer. 


Program 3-3. Squares 


10 
26 
38 
49 
58 
60 
708 
80 
96 
199 
119 
129 
130 
140 
15¢ 
1608 
170 
188 
190 
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CLS 
PRINT "** SQUARES **" 
PRINT 
PRINT 
PRINT “WHICH IS UNKNOWN?" 
PRINT " 1 AREA" 
PRINT “ 2 SIDE" 
PRINT " 3 PERIMETER" 
AS=INKEYS$ 
IF AS="2" THEN 200 
IF AS="3" THEN 416 
IF AS<>"1" THEN 998 
PRINT 
PRINT 
PRINT "AREA = SIDE * SIDE" 
PRINT 
INPUT "SIDE = “;S 
PRINT "AREA =";S*S 
GOTO 476 


Quick Calculations 


209 PRINT 

218 PRINT 

226 PRINT "NEED TO FIND SIDE" 
230 PRINT "WHAT IS GIVEN?" 

248 PRINT " 1 AREA" 

250 PRINT " 2 PERIMETER" 

260 AS=INKEYS 

278 IF AS="l1" THEN 350 

280 IF AS<>"2" THEN 260 

298 PRINT 

308 PRINT "SIDE = PERIMETER/4" 
318 PRINT 

320 INPUT "PERIMETER = ";P 

330 PRINT "SIDE =";P/4 

348 GOTO 479 

358 PRINT 

368 PRINT "SIDE = SQR ROOT OF AREA" 
378 PRINT 

380 INPUT "ARFA = "3A 

399 PRINT "SIDE =";SQR(A) 

488 GOTO 47¢ 

410 PRINT 

420 PRINT 

438 PRINT "PERIMETER = 4*SIDE" 
448 PRINT 

458 INPUT "SIDE = ";S 

466 PRINT "PERIMETER =";4%S 
478 PRINT 

486 PRINT 

496 PRINT "CHOOSE: " 

500 PRINT " 1 ANOTHER PROBLEM" 
519 PRINT " 2 END PROGRAM" 

520 AS=INKEYS 

536 IF AS="1" THEN 19 

540 IF AS<>"2" THEN 520 

558 PRINT 

568 END 

Rectangles 


Computers: Translatable 

“Rectangles” also illustrates plane geometry principles. The com- 
puter will calculate area, perimeter, or the length of the unknown 
side if all other necessary quantities are given. Lines 90, 340, and 
500 detect a key pressed. Change these to fit your computer by 
using GET A$ or CALL KEY(0,K;S). 
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Program 3-4. Rectangles 
Translatable 

18 CLS 

20 PRINT "** RECTANGLES **" 

38 PRINT 

48 PRINT 

5@ PRINT “WHAT IS UNKNOWN?" 

66 PRINT " 1 AREA" 

78 PRINT " 2 PERIMETER" 

88 PRINT " 3 ONE SIDE" 

98 AS=INKEY$ 

196 IF AS="2" THEN 210 

116 IF AS="3" THEN 298 

120 IF A$<>"1" THEN 96 


138 PRINT 

149 PRINT 

158 PRINT “AREA = LENGTH * WIDTH" 
168 PRINT 

178 INPUT “LENGTH = “;L 

188 INPUT “WIDTH = ";W 


199 PRINT "AREA =";L*wW 

208 GOTO 458 

218 PRINT 

228 PRINT 

239 PRINT "PERIMETER = 2*LENGTH + 2*WIDTH" 
249 PRINT 

250 INPUT "LENGTH = "?:L 

268 INPUT "WIDTH = ";W 

276 PRINT "PERIMETER ="32*L+2*W 
288 GoTO 458 

298 PRINT 

308 PRINT "WHAT IS GIVEN?" 
310 PRINT " 1 AREA" 

320 PRINT " 2 PERIMETER" 
338 PRINT 

348 AS=INKEYS 

350 IF AS$="2" THEN 420 

360 IF AS$<>"l" THEN 348 

378 INPUT "AREA = "3A 

389 INPUT "GIVEN SIDE = ":S 
390 IF AS<>"1" THEN 376 

490 PRINT "SIDE =":A/S 

418 GoTo 458 


420 INPUT "PERIMFTER = ";P 
438 INPUT "GIVEN SIDE = ";S 
449 PRINT “SIDE ="; (P-2*S)/2 
459 PRINT 

469 PRINT 


478 PRINT "CHOOSE: " 
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486 PRINT " 1 ANOTHER PROBLEM" 
496 PRINT " 2 END PROGRAM" 

568 AS=INKEYS 

510 IF AS="1" THEN 10 

520 IF AS<>"2" THEN 509 

538 PRINT 

549 END 


Circles 
Computers: Translatable 


“Circles” uses the formulas for the radius, diameter, area, or cir- 
cumference of a circle. First, decide which is the unknown, or 
the answer you'll want. Second, determine the given quantity 
and input that value. The answer will then be printed. 

The program uses INPUT, rather than detecting a key press, 
to receive a menu choice. 

(Note: This program will not work on the TRS-80 4K Color 
Computer because the program uses the square root function, 
which is not available in 4K Color BASIC. You may, however, 
adapt the program by leaving out all sections involving the square 
root and by combining lines and leaving out all spaces. For a pro- 
gram which calculates a number's square root on the Color Com- 
puter, refer to Program 3-6.) 


Program 3-5. Circles 
Transiatable 


19 PRINT"** CIRCLES **" 

28 PRINT 

38 PRINT"WHICH IS UNKNOWN?" 
48 PRINT" 1 RADIUS" 

58 PRINT" 2 DIAMETER" 

68 PRINT" 3 AREA" 

70 PRINT" 4 CIRCUMFERENCE" 

88 INPUT A 

99 IF A>=1 THEN 128 

198 PRINT"ENTER 1, 2, 3, OR 4" 
118 GoTo 8g 

120 IF A>4 THEN 100 

138 PRINT 

148 ON A GOTO 1548, 419,6708,930 
15@ PRINT"WHAT IS GIVEN?" 

168 PRINT" 1 DIAMETER" 

176 PRINT" 2 AREA" 

188 PRINT" 3 CIRCUMFERENCE" 
198 INPUT A 

208 IF A>=1 THEN 230 
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PRINT"ENTER 1, 2, OR 3" 
GOTO 198 

IF A>3 THEN 210 

PRINT 

ON A GOTO 260,310,368 


PRINT"RADIUS = DIAMETER/2" 
PRINT 

INPUT "DIAMETER = ";D 
PRINT"RADIUS = ";D/2 

GOTO 1186 

PRINT"RADIUS = SQR(AREA/PI)" 


PRINT 


INPUT “AREA = "3A 

PRINT"RADIUS = ";SQR(A/3.14159) 
GOTO 11808 

PRINT"RADIUS = CIRCUM/2 PI" 
PRINT 

INPUT “CIRCUMFERENCE = ";C 
PRINT"RADIUS = ";C/(2*3.14159) 
GOTO 1180 


PRINT"WHAT IS GIVEN?" 
PRINT" 1 RADIUS" 

PRINT" 2 AREA" 

PRINT" 3 CIRCUMFERENCE" 
INPUT A 

IF A>=l1 THEN 490 
PRINT"ENTER 1, 2, OR 3" 
GOTO 456 

IF A>3 THEN 472 

PRINT 

ON A GOTO 528,579,620 


PRINT"DIAMETER = 2*RADIUS" 
PRINT 

INPUT "RADIUS = ";R 
PRINT"DIAMETER = “;2*R 

GOTO 1180 

PRINT"DIAMETER = 2*SQR(AREA/PI) 


PRINT 


INPUT "AREA = “7A 

PRINT"DIAMETER = ";2*SQR(A/3.14159) 
GOTO 1188 

PRINT"DIAMETER = CIRCUM/PI" 

PRINT 

INPUT "CIRCUMFERENCE = ";C 
PRINT"DIAMETER = ":C/3.14159 

GOTO 1186 

PRINT"WHICH IS GIVEN?" 


PRINT" 1 RADIUS" 
PRINT" 2 DIAMETER" 


Quick Calculations 


PRINT” 3 CIRCUMFERENCE” 
INPUT A 
IF A>=l1 THEN 758 


PRINT"ENTER 1, 
GOTO 716 

IF A>3 THEN 730 
PRINT 

ON A GOTO 780,830,889 
PRINT"AREA = PI*RADIUS SQUARED" 


2, OR 3" 


PRINT 

INPUT "RADIUS = "sR 

PRINT"AREA = ";3.14159*R*R 

GOTO 1186 

PRINT"AREA = PI * DIAM SQUARED/4" 


PRINT 


INPUT "DIAMETER = ":D 
PRINT"AREA = "33.14159*D*D/4 
GOTO 1188 


PRINT"AREA = CIRCUM SQUARED/4 PI" 
PRINT 


INPUT "CIRCUMFERENCE = ";C 
PRINT"AREA = ";3C*C/4/3.14159 
GOTO 1188 


PRINT"WHAT IS GIVEN?" 
PRINT" 1 RADIUS" 
PRINT" 2 DIAMETER" 
PRINT" 3 AREA" 

INPUT A 

IF A>=l THEN 1016 
PRINT"ENTER 1, 2, OR 3" 

GOTO 979 

IF A>3 THEN 998 

PRINT 

ON A GOTO 18646,1898,1148 
PRINT"C=2 PI*RADIUS”" 

PRINT 

INPUT “RADIUS = ";R 
PRINT"CIRCUMFERENCE = ";2*3.14159*R" 
GOTO 1186 

PRINT"C = PI*DIAMETER" 

PRINT 

INPUT "DIAMETER = “3;D 
PRINT"CIRCUMFERENCE = "33.14159*D 
GOTO 1180 

PRINT"C = 2*SQR(AREA*PI)" 

PRINT 

INPUT "AREA = "3A 
PRINT"CIRCUMFERENCE = ":2*SQR(A*3.14159) 
PRINT 
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1198 PRINT"CHOOSE: " 

1200 PRINT" 1 ANOTHER PROBLEM" 
1218 PRINT" 2 END PROGRAM" 
1220 INPUT A 

1230 IF A=l THEN 298 

1240 IF A<>2 THEN 1220 

1250 END 


Square Root 
Computers: Translatable 


If you have the TRS-80 4K Color Computer or another computer 
which does not have the square root function SOR(n), you can 
use this program to calculate the square root of a number 1. You 
could convert this program to a subroutine to be called whenever 
you need a square root. 


Program 3-6. Square Root 
Translatable 


18 CLS 

20 PRINT "** SQUARE ROOT **" 
38 PRINT 

49 PRINT 

50 INPUT "NUMBER = ";N 

68 PRINT 

76 IF N<oO THEN 189 

88 PRINT “SQUARE ROOT = Q" 

98 GOTO 258 

108 IF N>® THEN 160 

119 PRINT 

126 PRINT "PLEASE ENTER NUMBER" 
138 PRINT "GREATER THAN ZERO.” 
149 PRINT 

158 GOTO 259 

168 PRINT "SQUARE ROOT ="; 

178 S=N/2 

186 T=0 

198 U=(N/S-S) /2 

200 IF (U=0)+(U=T) THEN 240 
218 S=S+U 

226 T=U 

238 GOTO 199 

246 PRINT S 

250 PRINT 

260 PRINT “CHOOSE: " 

278 PRINT " 1 ANOTHER PROBLEM" 
288 PRINT “ 2 END PROGRAM" 

298 AS=INKEYS$ 
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300 IF A$S="1" THEN 10 
316 IF A$<>"2" THEN 290 
328 PRINT 

3368 END 


Parallel Resistance 
Computers: Translatable 


“Parallel Resistance” is an electrical engineering program that 
illustrates how quickly your computer can calculate a complex 
equation. In electrical engineering circuit analysis, a number of 
resistors can be combined in parallel to create a total resistance 
value. The formula states that the reciprocal of the total is equal 
to the sum of the reciprocals of each one — in other words, an 
equation involving fractions. 

For example: 


R, __ is equivalent to R, 


where: 
Yr =r, + Ve, + Yr, 


For this program, enter the number of resistors, then enter 
the resistance for each one. The total resistance is calculated 
and printed. 


Program 3-7. Parallel Resistance 
Translatable 


18 CLs 

28 PRINT "** PARALLEL RESISTANCE **" 

308 PRINT 

49 PRINT " 1{4 SPACES}1{(4 SPACES }1{4 SPACES }1" 
50 PRINT "-- = == + -- + ~~ + .., 


69 PRINT "RT{3 SPACES}R1{3 SPACES}R2(3 SPACES}R3 
76 PRINT 

86 PRINT “YOUR PROBLEM: " 

98 INPUT "HOW MANY RESISTORS? ";N 

180 N=INT(N) 

119 IF NoS THEN 142 
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128 PRINT "SORRY, ONE OR MORE" 

138 GOTO 98 

148 IF N<51 THEN 180 

158 PRINT "IF YOU REALLY HAVE MORE" 
168 PRINT “THAN 58, SOLVE IN STEPS." 
178 GOTO 928 

188 PRINT 

199 D=0 

206 FOR I=l TO N 

218 PRINT "R";1;"="; 

228 INPUT R 

239 IF R<>O THEN 260 

249 PRINT "SORRY, ZERO NOT ALLOWED" 
256 GOTO 219 

260 D=D+1/R 

278 NEXT I 

280 PRINT 

298 PRINT "TOTAL R = ";1/D 

380 PRINT 

310 END 


Arithmetic Mean 


Computers: Translatable 

All types of statistical programs can be done with your computer 
— all you have to do is pick the appropriate formula or procedure 
and write a short program. This program illustrates the calculation 
of the arithmetic mean or average of a group of numbers. First, 
enter the number of items, then enter each value. The total and 
the average are printed. 


Program 3-8. Arithmetic Mean 


Translatable 


18 CLS 

26 PRINT “** ARITHMETIC MFAN **" 
38 PRINT 

40 INPUT "HOW MANY ITEMS";N 

5@ N=INT(N) 

60 IF NS THEN 100 

78 PRINT “PLEASE ENTER A WHOLE NUMBER" 
88 PRINT "GREATER THAN ZERO." 

98 GOTO 48 

199 T=9 

110 FOR I=1 TO N 

126 PRINT " VALUE";I;" = “; 

136 INPUT A 

148 T=T+A 

158 NEXT I 
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168 PRINT 

176 PRINT "TOTAL = ";T 

186 PRINT "AVERAGE = ";T/N 
198 PRINT 

200 END 


Simple Interest 
Computers: Translatable 


Suppose you have a savings account that pays simple interest. If 
you deposit a certain amount now, how much will it be worth 
later? In “Simple Interest,” you enter your principal deposit, the 
interest rate in percent, and the number of years. The future value 
will be printed. 

Another use for this program would be to calculate a simple 
interest loan. If you borrowed money at simple interest, what 
would be the total amount due n years from now? Entering the 
principal loan, the interest rate, and the number of years will 
produce the total amount due at the end of the loan’s term. 


Program 3-9. Simple Interest 
Translatable 


18 CLS 

26 PRINT "** SIMPLE INTEREST **" 

30 PRINT 

40 PRINT “ENTER PRINCIPAL DEPOSIT." 
5@ INPUT P 


66 IF P>@ THEN 98 
70 PRINT "MUST BE MORE THAN ZERO." 
88 GOTO 30 


98 PRINT 

160 PRINT "ENTER INTEREST RATE IN PERCENT" 
119 PRINT "SUCH AS 6 FOR 6 PERCENT." 

120 INPUT I 

130 PRINT 

149 INPUT "HOW MANY YEARS";N 

150 IF N>@ THEN 180 

166 PRINT "MUST BE MORE THAN ZERO. " 

178 GOTO 130 


180 PRINT 

1980 A=P*(1+N* (1/100) ) 

2606 PRINT “VALUE OF";P 

218 PRINT “AT INTEREST": 1; "PERCENT" 
220 PRINT "FOR"sN; "YEARS = " 

230 PRINT A 

249 PRINT 

258 END 
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Compound Interest 
Computers: Translatable 


Most banks and savings associations now use compound interest. 
This program calculates the future value of a present deposit earn- 
ing compound interest. You will be asked to enter the principal 
deposit, the interest rate in percent, how many times interest 

is compounded per year (quarterly would be 4, daily would be 
365), and how many years in the analysis. The equation in line 240 
involves a power or exponent symbol. Enter your computer's 
symbol for this function. For example, a VIC-20 would show an 
arrow (t ) here. Exponentiation is not available on the TRS-80 
Color Computer unless Extended Color BASIC is installed. The 
future value will be printed. 

As in Program 3-9, Simple Interest, you could use this pro- 
gram to calculate a compound interest loan’s total amount due. 
Just enter the principal of the loan, the interest rate, times com- 
pounded, and the number of years for the loan. The total value 
will be shown. You could use this to find out how much interest 
you'll pay on a car loan, for instance. 


Program 3-10. Compound Interest 
Translatable 


18 CLS 

26 PRINT "** COMPOUND INTEREST **" 
38 PRINT 

48 PRINT "“FNTER PRINCIPAL DEPOSIT" 
58 INPUT P 


60 IF P>S THEN 90 

78 PRINT "MUST BE MORE THAN ZERO." 

88 GOTO 30 

99 PRINT 

188 PRINT “ENTER INTEREST RATE IN PERCENT" 
118 INPUT I 

128 PRINT 

138 PRINT "COMPOUNDED HOW MANY TIMES" 
148 INPUT "PER YEAR";Q 

158 IF Q>=8 THEN 180 

168 PRINT “MUST BE MORE THAN ZERO." 
178 GOTO 120 

188 PRINT 

198 INPUT “HOW MANY YEARS";N 

200 IF No THEN 2390 

218 PRINT “MUST BE MORE THAN ZERO." 
228 GoTo 18¢ 

230 PRINT 

249 A=P*(1+(1/198) /Q)*(N*Q) 

258 PRINT "PRINCIPAL"; P 
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266 PRINT "AT INTEREST";I; "PERCENT" 

276 PRINT "COMPOUNDED";Q;"TIMES PER YEAR" 
286 PRINT "FOR";N;"YEARS =" 

290 PRINT A 

360 PRINT 

318 END 


Single Payment Present Worth 

Computers: Translatable 

Have you ever wanted to know how much money you'd have to 
deposit today to have $10,000 for your retirement? You can find 
out by using this program. Enter the future sum (10000, for exam- 
ple), the number of years you have until age 65, and a realistic 
interest rate in percent. The amount you would have to have 
right now will be calculated. 

Line 220 contains a “raise to power” (exponent) symbol. Make 
sure you enter the proper symbol for exponentiation for your 
computer here. Note that the TRS-80 Color Computer does not 
have the exponentiation function unless you have Extended Color 
BASIC installed. 


Program 3-11. Single Payment 


Translatable 


18 CLS 

20 PRINT “** SINGLE PAYMENT **" 

38 PRINT "** PRESENT WORTH **" 

49 PRINT 

50 PRINT "GIVEN A FUTURE SUM," 

68 PRINT "FIND ITS VALUF TODAY," 

78 PRINT "N PERIODS EARLIER." 

88 PRINT 

98 PRINT "WHAT IS THE FUTURE SUM?" 
199 INPUT §S 

119 IF S>=0@ THEN 1498 

128 PRINT “MUST BE MORE THAN ZERO." 
138 GOTO 86 

149 PRINT 

158 INPUT "HOW MANY PERIODS";N 

169 IF No@ THEN 190 

178 PRINT "MUST BE GREATER THAN ZERO” 
188 GOTO 148 

198 PRINT 

200 PRINT "ENTER INTEREST RATE IN PERCENT" 
216 INPUT I 

226 P=S*(1/((1+I1/198)“*N) ) 

230 PRINT 

248 PRINT "PRESENT VALUE =";P 
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Uniform Series Compound Amount 
Computers: Translatable 


Suppose you have a savings account earning compound interest. 
You deposit the same amount each month. After n months, how 
much will your account be worth? 

“Uniform Series” calculates the result of a uniform series of 
payments. Enter the payment amount, the number of payments, 
and the interest in percent. The final total, plus interest, will be 
printed on the screen. 

Line 240 contains a power or exponent symbol. Use your com- 
puter’s symbol here. For the TRS-80 Color Computer, Extended 
Color BASIC is required. 


Program 3-12. Uniform Series 
Translatable 

198 CLS 

26 PRINT "** UNIFORM SERIES **" 

38 PRINT "** COMPOUND AMOUNT **" 

48 PRINT 

50 PRINT "GIVEN A UNIFORM SERIES OF" 

68 PRINT "END-OF-PERIOD PAYMENTS, " 

78 PRINT "WHAT WILL N PAYMENTS" 

80 PRINT “ACCUMULATE TO AT" 

98 PRINT "COMPOUND INTEREST I?" 

186 PRINT 

118 INPUT “ENTER PAYMENT AMOUNT";R 

129 IF R>S THEN 159 

138 PRINT "MUST BE MORE THAN ZERO" 

149 GOTO 188 

150 PRINT 

160 INPUT "HOW MANY PAYMENTS";N 

178 IF N>@ THEN 280 

188 PRINT "MUST BE MORE THAN ZERO" 

198 GOTO 158 

268 PRINT 

218 PRINT "ENTER INTEREST IN PERCENT" 

228 INPUT "PER PERIOD";1I 

238 I=1/109 

248 S=R*(((1+1)“*N-1)/I) 

250 PRINT 

269 PRINT "FINAL VALUE =";S 

278 PRINT 

288 END 


40 


Quick Calculations 


Sinking Fund Deposit 


Computers: Translatable 
You need a certain sum in a future year and want to know how 
much to deposit each month to reach that amount. Your account 
earns compound interest. Enter the desired future sum, the number 
of time periods, and the interest expressed as a percent per period. 
The program will then calculate the monthly deposit needed. 
Make sure you enter your computer's exponent symbol in line 
250. Exponentiation is not available on the TRS-80 Color Com- 
puter unless Extended Color BASIC is installed. 


Program 3-13. Sinking Fund 
Translatable 
18 CLS 
28 PRINT "** SINKING FUND DEPOSIT **" 
38 PRINT 
49 PRINT "WHAT UNIFORM SERIES OF" 
56 PRINT "“END-OF-PERIOD DEPOSITS" 
6@ PRINT "MUST BE MADE FOR N PERIODS" 
78 PRINT “AT COMPOUND INTEREST I TO" 
80 PRINT "GET A FUTURE SUM?" 
98 PRINT 
199 PRINT “ENTER DESIRED FUTURE SUM." 
118 INPUT Ss 
128 IF S>=8 THEN 158 
138 PRINT "MUST BE MORE THAN ZERO" 
148 GOTO 9d 
158 PRINT 
168 INPUT "HOW MANY PERIODS";N 
178 IF N>=1 THEN 2990 
188 PRINT "MUST BE AT LEAST ONE" 
194 GOTO 15@ 
266 PRINT 
218 PRINT "ENTER INTEREST AS PERCENT" 
220 INPUT “PER PERIOD";I 
238 I=1/180 
249 PRINT 
258 R=S*(I/((1+I)“*N-1)) 
266 PRINT "SINKING FUND DEPOSITS =" 
278 PRINT R 
288 PRINT 
296 END 
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Loan Payments 
Computers: Translatable 


You would like to borrow a sum of money from a bank that charges 
compound interest. What would the monthly payments be? Using 
this program, you can find out. 

Enter the amount you want to borrow, and the number of 
years for the loan. For example, home mortgages may be 25 or 30 
years, but second mortgages are usually only 10 or 15 years. Next, 
enter the annual interest rate in percent — the interest rate the 
bank quoted you. The program will compute your monthly pay- 
ment. By running this program you can quickly see the difference 
in your monthly payment with different interest rates — or different 
times — for the same amount of money. 

Line 230 contains an exponent symbol. Enter your comput- 
er’s symbol in this line. Exponentiation is not available on TRS-80 
Color Computers unless Extended Color BASIC is installed. 


Program 3-14. Loan Payments 
Translatable 
18 CLS 
206 PRINT "** LOAN PAYMENTS **" 
38 PRINT 
46 PRINT "YOU WANT TO BORROW A" 
58 PRINT "CERTAIN SUM OF MONEY." 
68 PRINT “IF INTEREST IS COMPOUNDED, " 
78 PRINT "WHAT IS THE MONTHLY PAYMENT?" 
88 PRINT 
99 INPUT "AMOUNT BORROWED"; P 
100 IF P>S THEN 139 
118 PRINT “AMOUNT MORE THAN ZERO PLEASE" 
120 GOTO 8d 
130 PRINT 
149 INPUT "HOW MANY YEARS";Y 
150 IF Y>@ THEN 188 
168 PRINT "MUST BE MORE THAN ZERO" 
176 GOTO 138 
188 N=12*yY 
199 PRINT 
260 PRINT "WHAT IS THE INTEREST RATE" 
218 INPUT "IN PERCENT";1 
228 I=1/1280 
238 F=(1+1I)“N 
240 M=P*(I*PF/(F-1) ) 
250 M=(INT(100* (M+.905)))/102 
260 PRINT 
278 PRINT "MONTHLY PAYMENT =";M 
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289 PRINT 
298 END 


Amortization 

Computers: Translatable 

“Amortization” is a continuation of Program 3-14, “Loan Pay- 
ments.” After your monthly payment is calculated, you can use 
this program to see an amortization schedule — a list by month 
of the amount of principal paid, the amount of interest paid, and 
the current balance. 

Enter the amount borrowed, the number of years for the 
loan, and the interest rate in percent. The computer will display 
the monthly payment. The program then gives you the option to 
see the amortization schedule or end the program. Enter 1 to see 
the amortization. Pressing 2 will end the program. Since most 
computers display words faster than we can read, only one line 
at a time is shown, representing one month’s payment. Press any 
key to see the next line. (For the VIC-20 you'll need to adjust the 
printing to fit 22 column lines.) 

Line 230 contains a power, or exponent, symbol. Use your 
computer's symbol here. This program cannot be used on TRS-80 
Color Computers unless Extended Color BASIC is installed. This 
is because the exponentiation function is not available in standard 
Color BASIC. 


Program 3-15. Amortization 
Translatable 


16 CLS 

26 PRINT "** AMORTIZATION **" 

38 PRINT 

49 PRINT "YOU WANT TO BORROW A" 

5@ PRINT "CERTAIN SUM OF MONEY." 

68 PRINT "IF INTEREST IS COMPOUNDED, " 
78 PRINT “WHAT IS THE MONTHLY PAYMENT?" 
86 PRINT 

99 INPUT "AMOUNT BORROWED"; P 

190 IF P>@ THEN 1390 

118 PRINT "AMOUNT MORE THAN ZERO PLEASE" 
12@ GOTO 8d 

138 PRINT 

149 INPUT “HOW MANY YEARS";Y 

158 IF Y>@ THEN 180 

168 PRINT "MUST BE MORE THAN ZERO" 

176 GOTO 13@ 
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N=12*y 

PRINT 

PRINT "WHAT IS THE INTEREST RATE" 
INPUT "IN PERCENT"; I 

T=I/1260 

F=(1+1I)“*N 

M=P*(I*F/(P-1)) 

M= (INT (100* (M+.085)))/190 

PRINT 

PRINT “MONTHLY PAYMENT =";M 
PRINT 

PRINT "CHOOSE: ”" 

PRINT " 1 PRINT AMORTIZATION" 
PRINT " 2 END PROGRAM" 

INPUT A 

IF A=2 THEN 512 

IF A<>l THEN 3298 

PRINT 

PRINT “WHILE THE SCHEDULE IS BEING" 
PRINT "PRINTED, PRESS ANY KEY TO" 
PRINT "SEE THE NEXT LINE." 

PRINT 

PRINT "N PRINCIPAL INTEREST BALANCE" 
P=(INT(100*(P+.905)))/18@ 


FOR C=l1 TO N 
J=(INT(100* (1*P+.805)))/180 


A=(INT(180* ((M-J )+.905))) /18@ 

B= (INT (109* ((P-A)+.905)))/100 

P=B 

PRINT C;TAB(4):A?:TAB(14)3:J;:TAB(23):B 
AS=INKEYS 

IF AS="" THEN 480 

NEXT C 

END 


Chapter 4 
Graphics 


The rest of the programs in this book are computer-specific. Each 
program has been written for a particular machine, and its listing 
shows what should be entered for that computer. Many of the 
programs have been translated into other computers’ versions of 
BASIC. Unlike the previous chapters, you won't have to go 
through the programs and locate commands and symbols to 
change. It’s been done for you. 

As before, each program notes which computer or comput- 
ers the program will RUN on. In many cases, there will be only 
one explanation of the program's operation, but there will be sev- 
eral program listings. Each listing will be identified with the com- 
puter it will operate on. Most of the rest of the programs are 
listed for one of three computers: the VIC-20, the TRS-80 Color 
Computer, or the TI-99/4A. Variations of the Color Computer, 
such as the TRS-80 Model I and the MC-10, or variations of the 
TI-99/4, such as the TI-99/4A, are included in the list of possible 
computers where they apply. 

This doesn’t mean that you can't translate these programs to 
your computer, even if it is not one of these three machines. It 
just means that translation may be more difficult. Depending on 
the program and the computer features it uses, a translation may 
be simple, or next to impossible. Most of the commands in BASIC 
are the same for the different microcomputers. Sometimes the 
punctuation or functions used are slightly different, but in gen- 
eral most of the commands are similar enough to be translated 
from one computer to another without much problem. The main 
difference in variations in BASIC is found in the graphic and 
sound commands. These are very difficult to translate, for each 
computer uses its own graphics and sound commands. This 
chapter and Chapter 5 provide programs written for specific com- 
puters — graphics and sound commands have made the programs 
so different that separate listings are given for each computer. 


Graphics Demo 
Computers: VIC-20; TRS-80 Color Computer; MC-10; TI-99/4A 


“Graphics Demo’ is a short program that randomly places squares 
of color on the screen while playing random tones. The program 
continues until you press any key. 
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Program 4-1. Graphics Demo 
VIC-20 


20 PRINT"{CLR}PRESS A KEY TO STOP." 

38 S=36876:POKE36878,15 

40 P=INT(506*RND(@)) 

5@ T=INT(254*RND(@)+1) 

68 POKEP+768@, 160: POKEP+38400, INT(8*RND(@) ) 
78 POKES,T 

80 GET ES:IF ES=""THEN4@ 

99 POKES,@ 

198 END 


Program 4-2. Graphics Demo 
TRS-80 Color Computer; MC- 10 


28 CLS 

38 PRINT "PRESS A KEY TO STOP." 
46 I=RND(64)-1 

5@ J=RND(32)-1 

60 C=RND (4) 

76 SET(I,J,C) 

88 SOUND RND(255),1 

98 AS=INKEYS$ 

199 IF AS="" THEN 498 

118 END 


Program 4-3. Graphics Demo 
TI-99/4A 
118 CALL CLEAR 
120 PRINT "PRESS ANY KEY TO STOP." 
138 FOR C=1 TO 16 
148 CALL COLOR(C,C,C) 
159 NEXT C 
168 RANDOMIZE 
178 CALL SOUND(-58, INT(1690*RND+11@), 2) 
186 CALL HCHAR(INT(24*RND+1), INT(32*RND+1), 8*INT(1 
6*RND+1 )+31) 
198 CALL KEY(@,K,S) 
200 IF S<l THEN 160 
218 END 


Doodle 
Computers: VIC-20; TRS-80 Color Computer; MC- 10; TRS-80 Model I; 
TI-99/4A 


“Doodle” lets you draw on the screen by pressing the arrow or 
cursor keys. The cursor starts in the middle of the screen. As you 
press a cursor or arrow key, the cursor moves in that direction 
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Graphics 


and leaves a trail. Pressing the space bar changes colors. If you 
can’t see the cursor, it may be the same color as the background 
screen, or it may be ona color previously drawn. 

Here’s how the VIC-20 version of Doodle works: 


Line Function 

2 Clear screen. 

3-5 PRINT instructions. 

6-7 Wait for beginning key to be pressed. 

8 Clear screen. 

10 Initialize variables. P is screen position, S is character 
screen code number for graphics, and C is color number. 

20 Draw square of color. 

30 Blink square while waiting for input. 

40-160 Depending on cursor key pressed, change screen 
position. 

170-180 If space bar is pressed, change color. 

190 RETURN to line 20 to draw new square. 

200 END. 


To move left or up, remember that you'll have to press SHIFT, 
then the appropriate cursor key. 


Program 4-4. Doodle 
VIC-20 


PRINT "{CLR}” 

PRINT"PRESS THE CRSR KEYS{3 SPACES}TO DRAW." 
PRINT" {2 DOWN}PRESS THE SPACE BAR{3 SPACES}TO CH 
ANGE COLORS." 

5S PRINT"{4 DOWN}PRESS Fl TO START." 

6 GETES : IFES=""THEN6 

7 IFASC(ES)<>133THEN6 

8 PRINT” {CLR}" 

10 P=7932:S=169:C=9 

20 R=P+30720:POKEP,S:POKER,C 

30 POKER, 1:POKER, C:GETES : LFES=""THEN3@ 
48 E=ASC(ES) 

50 IFE<>17THEN8@ 

60 IFP+22>8185THEN3G 

78 P=P+22:GOTO29 

80 IFE<>29THEN1192 

99 IFP+1>8185THEN3@ 

190 P=P+1:GOTO29 

110 IFE<>145THEN149 

128 IFP-22<7680THEN3@ 

138 P=P-22:GOTO020 

149 IFE<>157THEN172 


& GW N 
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158 IFP-1<7680THEN39 
160 P=P-1:GOTO29 

178 IFE<>32THEN3@ 

189 C=Ct+1:IFC>7THENC=8 
199 GOTO29 

2828 END 


Doodle works a bit differently on the Color Computer and 
MC-10: 
Line Function 
20 Clear screen. 
30-40 PRINT instructions. 
50-70 Wait for key to be pressed. 


80 Clear screen. 
90 Initialize variables. P is screen position, C is color 
number. 


100-110 Calculate character number R. 
120-130 —_‘ Blink square while waiting for input. 
140-260 Depending on arrow key pressed, change screen 


position. 
270-280 If space bar is pressed, change color. 
290 RETURN to line 100 to draw new square. 
300 END. 


Program 4-5. Doodle 
TRS-80 Color Computer; MC- 10 


28 CLS 

38 PRINT “PRESS THE ARROW KEYS TO DRAW." 

40 PRINT:PRINT "PRESS THE SPACE BAR":PRINT "TO CHA 
NGE COLORS." 

56 PRINT:PRINT"PRESS <ENTER> TO START." 

68 ES=INKEYS:IF ES="" THEN 69 

76 IF ASC(ES$)<>13 THEN 60 

88 CLS 

96 P=246:c=4 

198 R=128+16* (C-1 )+15 

110 IF R=127 THEN R=128 

120 PRINT@P, CHRS (128): :PRINT@P, CHRS (R);? 

138 ES=INKEYS:IF ES=""THEN 126 

149 E=ASC(ES) 

159 IF B<>l10 THEN 180 

166 IF P+32>5190 THEN 1298 

178 P=P+32:GOTO 129 

180 IF E<>?94 THEN 219 

198 IF P-32<8 THEN 1290 

200 P=P~-32:GOTO 129 
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IF E<>8 THEN 240 

IF P-1<0 THEN 120 
P=P-1:GOTO 120 

IF E<>9 THEN 278 

IF P+1>519 THEN 1298 
P=P+1:GOTO 1298 

IF E<>32 THEN 120 
C=C-l1:IF C<@ THEN c=4 
GOTO 196 

END 


Doodle works like this on the Model I: 


Line Function 


Clear screen. 


30-40 PRINT instructions. 
50-70 Wait for beginning key to be pressed. 


Clear screen. 
Initialize starting coordinates X and Y. 


100-110 Blink square while waiting for input. 
120-240 Depending on key pressed, change screen position. 


END. 
Program 4-6. Doodle 
TRS-80 Mode! | 
CLS 
PRINT "PRESS THE ARROW KEYS TO DRAW." 


PRINT: PRINT: PRINT:PRINT 
PRINT: PRINT "PRESS <ENTER> TO START." 
ES=INKEYS:IF ES="" THEN 60 
IF ASC(E$)<>13 THEN 60 
CLS 
X=64:Y=23 

RESET (X,Y):SET(X,Y) 
ES=INKEYS:IF ES=""" THEN 18 
E=ASC(ES) 

IF E<>9l1 THEN 169 

IF Y-1<8 THEN 190 
Y=Y-1:GOTO 199 

IF E<>8 THEN 190 

IF X-1<8 THEN 1988 
X=X-1:GOTO 109 

IF FE<>9 THEN 220 

IF X+1>127 THEN 190 
X=X+1:GOTO 180 

IF E<>18 THEN 100 

IF Y+1>47 THEN 100 
Y=Y+1:GOTO 180 

END 
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Here’s how the TI-99/4A version works: 


Line Function 

110 Clear screen. 

120-130 PRINT instructions. 

140-160 Wait for key to be pressed. 

170 Clear screen. 

180-200 Define 16 colors. 

210-230 Define variables. X and Y are screen positions, and C 
is color number. 

240 Calculate character number R. 

250-270 _—_ Blink square while waiting for input. 

280-430 Depending on arrow key pressed, change screen 
position. 

440-480 If space bar is pressed, change colors. 

490-530 Check edge condition, then branch to line 250 to 
draw new square. 

540 END. 

Program 4-7. Doodle 

TI-99/4A 


118 CALL CLEAR 
128 PRINT "PRESS ARROW KEYS TO DRAW." 
138 PRINT ::"PRESS THE SPACE BAR"::"TO CHANGE COLO 


RS." 


149 PRINT :::"PRESS <ENTER> TO START." 
158 CALL KEY(@,K,S) 

168 IF K<>13 THEN 150 

178 CALL CLEAR 

188 FOR I=1 TO 16 

198 CALL COLOR(I,I,I) 

260 NEXT I 


219 X=12 
228 Y=15 
238 C=16 


240 R=31+8*C 

258 CALL HCHAR(X,Y,8) 
268 CALL HCHAR(X,Y,R) 
278 CALL KEY(@,K,S) 
288 IF K<>69 THEN 3290 


296 DX=-1 


386 DY=0 


318 GOTO 496 
320 IF K<>68 THEN 360 


338 DX=6 
348 DY=1 


358 GOTO 4908 
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360 IF K<>88 THEN 400 

376 DX=1 

380 DY=0 

398 GOTO 4990 

490 IF K<>83 THEN 449 

418 Dx=8 

420 DY=-1 

438 GOTO 498 

449 IF K<>32 THEN 250 

458 c=c-1 

460 IF C>@ THEN 240 

478 c=16 

486 GOTO 242 

498 X=X+DxX 

580 Y=Y+DY 

510 X=INT(24*( (X-1) /24-INT( (X-1)/24)))+1 
520 Y=INT(32*((Y-1)/32-INT( (Y-1)/32)))+1 
538 GOTO 250 

548 END 


Color Code 
Computers: VIC-20; TRS-80 Color Computer; TI-99/4A 


“Color Code” is a graphic guessing game, similar to the popular 
game “Mastermind.” The computer chooses four colors and 
places them in a certain order. Each position may be one of the 
particular computer's available colors. You then try to guess the 
computer's color code by pressing the color numbers shown at 
the top of the screen in the correct order. If you make a mistake 
before you press the fourth color number, you may erase your 
guess and start over. 

The computer checks your guess. You'll see one kind of 
marker for each correct color that is in the correct position and a 
different marker for a color that is in the series but is not in the 
correct position. The markers shown are not in any particular 
order — you may not know which color goes with which marker. 
Try to guess the color code in as few tries as possible. If you don't 
discover the color code before you reach the bottom of the screen, 
the computer will show you the correct answer. 

The VIC version of Color Code works like this: 


Line Function 

10-16 PRINT instructions; initialize sound variables. 

18 Initialize color numbers. 

20-24 Wait for user to press f1 key. 

26 PRINT color numbers and color across top of screen. 
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28-30 Draw playing board. 


32 Choose series of four colors. 

34 Initialize N for number of tries. 

36 Label player's guess. 

38-46 Receive user's four guesses of color numbers. 
48-54 Check for correct color in correct position. 

56-60 Check for correct color in any other position. 

62 Increment number of guesses; return for next try. 
64-66 Show correct answer. 

68 Play tune for correct answer. 


70-76 PRINT option to try again and branch appropriately. 


78 Subroutine for sound delay loop. 
80 Clear screen and END. 
Program 4-8. Color Code 

VIC-20 


(In this program, make sure to use abbreviations for all BASIC keywords in the lines 
marked with an asterisk (*). If you don’t, the program will not run correctly. Refer to 
Appendix C, “BASIC Keyword Abbreviations,” for the proper abbreviations.) 


18 


¥*12 


14 
16 
18 
26 
22 
24 
26 
28 
32 
32 
34 
36 


38 
40 
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PRINT" {CLR}":PRINTTAB(6);"{BLU}COLOR CODE":PRIN 
T" {DOWNIGUESS THE CORRECT" 

PRINT"SEQUENCE OF FOUR": PRINT"COLORS. ":PRINT" 
{DOWN}GUESS BY PRESSING":PRINT"FOUR COLOR NUMBE 
RS." 

PRINT"PRESS @ TO ERASE.":PRINT"{2 DOWN}{GRN} Z 
{SPACE}{BLK} RIGHT COLOR ONLY" ~ 
PRINT" {DOWN} {RED} S {BLK}RIGHT COLOR IN":PRINT" 
{3 SPACES}CORRECT POSITION" :S=36876 : POKE36878, 1 
5 

Z(1)=1:2(2)=3:2(3)=6:2(4)=7:2(5)=8 

PRINT"{4 DOWN} {GRN]PRESS {BLU} F1(GRN} TO START. 
¢e 


GETES : IFES=""THEN22 

IFASC(ES ) <>133THEN22 

PRINT" {CLR} {BLU}1{BLK]} EK] {BLU} 3 {RED} kK3 
{BLU}6{GRN}KK3 {BLU} 7EKI8{YEL} EK9{ BLU} 

{3 SPACES }0<" 
FORP=7725TO8165STEP22 : FORA=PTOP+8 : POKEA, 102 : POK 
EA+30720,08:NEXTA, P 
FORP=7748T08144STEP44 : FORA=PTOP+6STEP2 : POKEA, 16 
@: POKEA+30728,1:NEXTA, P 

FORA=1T04 :J=INT(5*RND(@)+1) :X(A)=Z(J) :NEXT 

N=1 

M=7702+44*N: L=M+30729 s POKEM, 48+N: POKEL, 6 
FORJ=1T04 : POKES, 225:GOSUB78: POKES, 9 

GETES : IFES<>"1"ANDES <>"3"ANDES$ <> "6"ANDES$<>"7"AN 
DES <>"8" ANDES <>"@"THEN4G 
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42 IFES<>"O"THEN46 

44 POKEL+2,1:POKEL+4,1:POKEL+6,1:GOTO38 

46 Y(J)=VAL(ES) : POKEL+J*2,Y(J) -1 sNEXTJ 

48 J=1 

58 FORA=1T04:W(A)=X(A) : IFX(A) <>Y(A) THENS4 

52 POKEM+12+J,83:POKEL+12+J,2:Y(A)=8:W(A)=9:J=J+1 

54 NEXTA: IFJ=5THEN68 

56 FORA=1T04:FORA1=1T04: IFW(A) <>Y(Al ) THEN60 

58 POKEM+12+J, 98: POKEL+12+J,5:Y(Al)=0:W(A)=9:J=J+1 

69 NEXTA1,A 

62 N=N+1l:IFN<10THEN36 

64 POKES, 159:GOSUB78 : POKES, 135 :GOSUB78: POKES, @ 

66 L=38862:FORA=1T04 : POKEL+2*A,X(A)-1 sNEXT:GOTO7@ 

*68 FORA=1TO3: POKES, 195 :GOSUB78 : POKES, 207 :GOSUB78 :P 
OKES , 215:GOSUB78: POKES, 225 : GOSUB78 : GOSUB78 : POKE 
S,O:NEXTA 

76 PRINT"{22 DOWN}TRY AGAIN? (Y/N)"; 

72 GETES : IFES="Y"THEN26 

74 IPES="N"THENSS 

76 GOTO72 

78 FORT=1T099:NEXT: RETURN 

88 PRINT" {CLR}":END 


Color Code works differently on the Color Computer: 


Line Function 
10-60 PRINT instructions. 
70-80 Define character numbers for colors C(I). 


90-110 Wait for user to press ENTER to start. 
120-130 = PRINT color numbers and colors across top of 


screen. 

140-160 Draw playing board. 

170 Choose series of four colors; initialize N as number 
of tries. 


180-280 Receive user’s four guesses of color numbers. 
290-320 Check for correct color in correct position. 
330-350 Check for correct color in any other position. 


360 Increment number of guesses; return for next try. 
370-380 Show correct answer. 
390 Play tune for correct answer. 


400-420 PRINT option to try again and branch appropriately. 
430 END. 


Program 4-9. Color Code 
TRS-80 Color Computer 
18 CLS:PRINT TAB(6);"** COLOR CODE **" 
26 PRINT:PRINT “GUESS THE CORRECT SEQUENCE" 
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PRINT “OF FOUR COLORS.":PRINT"GUESS BY PRESSING 
FOUR" 
PRINT "COLOR NUMBERS.":PRINT"PRESS THE BACK ARR 
OW TO ERASE." 
PRINT:PRINT"! RIGHT COLOR ONLY" 
PRINT"* RIGHT COLOR, CORRECT POSITION" 
FOR I=2 TO 8:READC(I):NEXT 
DATA 159,175,191, 207, 223,239, 255 
PRINT: PRINT"PRESS <ENTER> TO START." 
ES=INKEYS:IF ES=""THEN1O@ 

IF ASC(E$)<>13 THEN 182 

CLS 

FOR I=2TO8:PRINT STRS(1I);CHRS(C(1));:NEXT 
AS=CHRS$ (128): BS=CHR$ (131) 

FOR I=65 TO 417 STEP 32:PRINT@L,AS+BS+AS+BS+A$ 
+BS+AS+BS+AS :NEXT 

PRINT @449,AS+AS+AS+AS+AS+AS+AS+AS+AS$ 

FOR A=l1 TO 4:X(A)=RND(6)+2:NEXT:N=1 

FOR A=1 TO 4 

SOUND 280,1 

M=32+32*N+A*2 

PRINT@M, CHRS (128); :PRINT@M, CHRS$ (131); 
ES=INKEYS:IF FS=""THEN 219 

IF ASC(E$)<>8 THEN 259 

PRINT @34+32*N, BS+AS+BS+AS+BS; :A=1:GOTO 198GOT 
Oo 198 

IF ASC(E$)<58 THEN 2190 

IF ASC(E$)>56 THEN 210 
E=VAL(ES):Y(A)=E:PRINT@M, CHRS$(C(E)=-12); 

NEXT A 

J=1:M=M+5 

FORA=1T04:W(A)=X(A): IFX(A)<>Y(A)THEN 320 
PRINTQ@M, "*"3 :Y(A)=O:W(A)=9:J=J+1:M=M+1 

NEXTA: IFJ=5THEN3 90 

FORA=1T04: FORAL=1T04: IFW(A) <>Y (Al )THEN35@ 
PRINT@M, "I": :Y(Al )=O:W(A)=9:J=J+1:M=M+1 
NEXTA1,A 

N=N+1:IFN<12THEN18@ 

SOUND125, 3: SOUND89, 3 

FORA=1T04: PRINT@416+2*A,CHRS (C(X(A) )-12)7 sNEXT 
sGOTO400 

FORA=1T03 : SOUND89, 1: SOUND125, 1:SOUND147, 1:SOUN 
D176,2:NEXTA 

PRINT@489, "TRY AGAIN? (Y/N)"3 

ES=INKEYS: IFES="Y"THEN120 

IFES <> "N"THEN419 

END 


Graphics 


The same game program, this time on the TI-99/4A, works 


like this: 
Line Function 
100-200 PRINT instructions and define graphics characters. 
210-320 Define graphics, colors, and character numbers 

for colors. 
330-350 Wait for user to press any key to start. 
360-390 Draw playing board. 
400-430 Choose series of four colors. 
440-500 PRINT color numbers and colors across top of screen. 
510-520 Initialize I for number of tries. 
930 If number of guesses is greater than 9, end. 
540-550 Label number of try. 
560-710 Receive user's four guesses of color numbers. 
720-810 Check for correct color in correct position. 
820-910 Check for correct color in any other position. 
920 Return for next try. 
930-980 Show correct answer. 
990-1030 Play tune for correct answer. 
1040-1070 PRINT option to try again and branch appropriately. 
1080-1090 Clear screen and END. 
Program 4-10. Color Code 

TI-O9/4A 


198 CALL CLEAR 

118 PRINT TAB(7);"COLOR CODE" 

128 CALL CHAR(93, "3C7EFFFFFFFF7E3C") 

138 PRINT ::::"GUESS THE CORRECT SEQUENCE" 
148 PRINT "OF FOUR COLORS." 

158 CALL CHAR(1290, "3C7EFFFFFFFF7E3C" ) 

168 PRINT : "GUESS BY PRESSING THE" 

178 PRINT "COLOR NUMBERS." 

188 CALL COLOR(12,16,1) 

196 PRINT :::CHR$(93);" RIGHT COLOR AND POSITION" 
268 PRINT :CHR$(128):;" RIGHT COLOR ONLY" 
219 FOR I=l1 TO 3 

228 CALL CHAR((11+1I)*8, "@") 

230 CALL CHAR( (11+I)*8+1, "FFFFFFFFFFFFFFFF ") 
248 NEXT I 

25@ FOR I=1 TO 6 

268 READ C(I) 

278 NEXT I 

288 DATA 96,97,104,185,112,113 

298 CALL COLOR(9,3,16) 

3868 CALL COLOR(19,5,12) 

318 CALL COLOR(11,7,14) 
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328 CALL CHAR(92, "FFFFFFFFFFFFFFFFF " ) 
338 PRINT :::"PRESS ANY KEY TO START. "3 
348 CALL KEY(@,K,S) 

350 IF S<l THEN 349 

368 CALL CLEAR 

378 FOR I=9 TO 17 

388 CALL VCHAR(4,1,92,29) 

398 NEXT I 

400 FOR I=1 TO 4 

418 RANDOMIZE 

428 A(1I)=INT(RND*6+1 ) 

430 NEXT I 

448 FOR I=1 TO 6 

458 CALL HCHAR(1,3*I-1,48+I) 
468 CALL HCHAR(1,3*1I,C(I)) 
470 NEXT I 

488 FOR I=1 TO 7 

496 CALL HCHAR(1,21+1I,ASC(SEGS$ ("O-ERASE",I,1))) 
500 NEXT I 

516 I= 

520 I=I+1 

530 IF I1>9 THEN 936 

548 IA=3+2*I 

55@ CALL HCHAR(IA,8, 48+I1) 

568 FOR J=1 TO 4 

578 JA=8+2*J 

586 CALL SOUND(199,1497,2) 
590 CALL KEY(@,K,S) 

608 CALL HCHAR(IA,JA, 92) 

618 CALL HCHAR(IA,JA, 32) 

628 IF S<l THEN 596 

630 IF (K>47)*(K<55)<>1 THEN 59@ 
640 IF K<>48 THEN 692 

658 FOR K=J TO 1 STEP -1l 

66@ CALL HCHAR(IA, 8+K*2,92) 
678 NEXT K 

688 GOTO 568 

699 B(J)=K-48 

768 CALL HCHAR(IA,JA,C(K~-48) ) 
710 NEXT J 

720 L=1 

730 FOR J=1 TO 4 

740 D(J)=A(J) 

758 IF A(J)<>B(J)THEN 880 
768 CALL HCHAR(IA, 21+L,93) 
778 B(J)=@ 

780 D(J)=8 

798 L=L+1l 

890 NEXT J 
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818 IF L=5 THEN 994 
828 FOR J=l TO 4 

838 FOR Jl=1 TO 4 

849 IF D(J)<>B(J1)THEN 99892 
858 CALL HCHAR(IA, 21+L,1298) 
868 B(J1)=0 

878 D(J)=8 

888 L=Ltl 

899 IF L=5 THEN 520 

9068 NEXT Jl 

919 NEXT J 

928 GOTO 520 

938 CALL SOUND(159,330,2) 

948 CALL SOUND(15@,262,2) 

958 FOR J=1 TO 4 

968 CALL HCHAR(23,8+2*J,C(A(J))) 
978 NEXT J 

989 GOTO 1048 

999 FOR J=1 TO 3 

1980 CALL SOUND(190, 262,2) 
1818 CALL SOUND(198,330,2) 
1628 CALL SOUND(100,392,2) 
19638 NEXT J 

1949 PRINT "TRY AGAIN? (Y/N)";? 
1958 CALL KEY(9,K,S) 

1969 IF K=89 THEN 368 

1976 IF K<>78 THEN 1950 

1888 CALL CLEAR 

1999 END 


Matching Shapes 
Computers: VIC-20; TRS-80 Color Computer; MC- 10; TRS-80 Model I; 
TI-99/4A 


“Matching Shapes” uses the color and graphics capabilities of 
the computer to present a teaching game for preschool children. 
This program, a drill of matching shapes, begins with a random 
shape displayed. Four more random shapes are then drawn. One 
of the four matches the first shape. Press the matching shape’s 
number as your answer. The answer must be correct to continue. 
Remember to look at the shape, not at the color. After ten problems 
you have the option to try again. 

Each computer's program version is listed below. 


Here’s how the VIC version works: 


Line Function 
2 Initialize variables Y for color and T for sound, turn 
volume on, and branch past subroutines. 
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4-24 Subroutines to draw shapes. 

26 Subroutine for sound delay. 

28-30 Read graphics coordinate position W from DATA. 

32-74 Perform quiz ten times. 

34 PRINT question. 

36 Randomly choose shape N and color C, set X equal 
to the coordinate for drawing, and draw shape to 
be matched. 

38 PRINT answer numbers. 

40 Randomly choose answer number. 

42-58 Randomly draw four shapes for the four possible 
answers. Color C is chosen randomly. X is the coor- 
dinate for drawing. Lines 44-46 draw the correct 
answer shape. 

60-62 Play a tone, then wait for any key to be pressed. 

64-66 If answer is incorrect, play sound effect and return 
for another response. 

68-74 If answer is correct, PRINT three hearts under the 
correct shape, play a musical sound effect, and 
return for next problem. 

76-80 PRINT option to try again and branch appropriately. 

82 Clear screen and END. 


Program 4-11. Matching Shapes 


(In 


VIC-20 
this program, make sure to use abbreviations for all BASIC keywords in the lines 


marked with an asterisk (*). If you don’t, the program will not run correctly. Refer to 
Appendix C, “BASIC Keyword Abbreviations,” for the proper abbreviations.) 


2 


Y=30729 :T=36876 : POKE36878, 15:GOTO28 


4 POKEX, 160 : POKEX+21, 169: POKEX+22, 160 : POKEX+23, 169 
: POKEX+44, 160 
6 Z=X+Y:POKEZ,C: POKEZ+21,C: POKEZ+22,C: POKEZ+23,C:P 
OKEZ+44 , C: RETURN 
*8 FORI=X-1TOX+1 :POKEI, 169:POKEI+22,169:POKEI+44,16 
9: POKEI+Y, C: POKEI+Y+22,C: POKEI+Y+44,C:NEXT: RETUR 
N 
19 POKEX, 233 : POKEX+1 , 223 s POKEX+21,233 s POKEX+22,1698 
: POKEX+23, 168 : POKEX+24, 223 
12 Z=X+Y: POKEZ,C: POKEZ+1,C:POKEZ+21,C: POKEZ+22,C:P 
OKEZ+23 , C3 POKEZ+24, C: RETURN 
14 POKEX, 223 : POKEX+22, 160: POKEX+23, 223 : POKEX+44,16 
Os POKEX+45 , 168: POKEX+46, 223 
16 Z=X+Y:POKEZ,C: POKEZ+22,C: POKEZ+23,C: POKEZ+44,C: 
POKEZ+45 , Cs: POKEZ+46 , C: RETURN 
18 POKEX-1 , 233 : POKEX, 160: POKEX+1, 223 : POKEX+21,169: 
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POKEX+22 , 168 : POKEX+23, 160 
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28 POKEX+43,95:POKEX+44, 168: POKEX+45 , 105: Z=X+Y 

22 FORI=Z-1TOZ+1: POKEI ,C: POKEI+22 ,C: POKEI +44, C:NEX 
T: RETURN 

24 FORI=XTOX+66STEP22 : POKEI, 168:POKEI+Y,C:POKEI+1, 
169: POKEI+Y+1,C:NEXT: RETURN 

26 FORD=1T060 :NEXT: RETURN 

28 FORI=9T0O4 : READW(I) :NEXT 

38 DATA7754, 7947, 7952, 7957, 7962 

32 FORP=1T0O190 

34 PRINT" (CLR}{DOWN}WHICH SHAPE MATCHES?" 

36 N=INT(6*RND(Q)+1):X=w(8) :C=INT(6*RND(@)+2) :ONN 
{SPACE }GOSUB4,8,19,14,18, 24 

38 PRINT"{9 DOWN}{3 SPACES}1{4 SPACES}2{4 SPACES}3 
{4 SPACES }4" 

40 A=INT(4*RND(@)+1) 

42 FORJ=1T04:X=w(J) :C=INT(6*RND(@)+2) 

44 IFJ<>A THEN48 

46 K(J)=N:ONN GOSUB4,8,19,14,18,24:GOTO58 

48 B=INT(6*RND(G)+1):IFB=N THEN48 

50 IFJ=1THENS56 

52 FORL=1TOJ-1: IFB=K(L)THEN48 

54 NEXTL 

56 K(J)=B:ONB GOSUB4,8,10,14,18,24 

58 NEXTJ 

68 POKET, 225 :GOSUB26: POKET, @ 

62 GETES : IFES=""THEN62 

64 IFVAL(ES)=A THEN68 

66 POKET, 159:GOSUB26 : POKET, 135 :GOSUB26 : POKET, 8:GOT 
062 

68 PRINTTAB(A*5-3);"{5 DOWN} {RED}SSS{BLU}" 

70 POKET, 195 :GOSUB26 : POKET, 207 : GOSUB26 : POKET, 215:G 
OSUB26 

72 POKET, 225 :GOSUB26 :GOSUB26 : POKET, @ 

74 NEXTP 

76 PRINT"{2 DOWN}TRY AGAIN? (Y/N)" 

78 GETES : IFES="Y"THEN32 

88 IFES<>"N"THEN78 

82 PRINT" {CLR}":END 


The Color Computer version looks a bit different: 


Line Function 

20 Branch past subroutines. 

30-410 Subroutine to draw shapes. 

420-430 _Initialize coordinates for positions of shapes. 


440 Perform quiz ten times. 
450 Clear screen and PRINT question. 
460 Randomly choose shape number N and color C and 


draw shape to be matched. 
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470 Randomly choose answer number. 

480-570 Randomly draw four shapes for the four possible 
answers. Color C is chosen randomly. X and Y are 
coordinates for drawing. 

580-590 = Play a tone, then wait for any key to be pressed. 

600-610 If answer is incorrect, play musical tone and return 
for another response. 

620-640 If answer is correct, PRINT message, play musical 
effect, and return for next problem. 

650-670 PRINT option to try again and branch appropriately. 

680 Clear screen and END. 


Program 4-12. Matching Shapes 
TRS-80 Color Computer; MC- 10 


28 GOTO420 

38 L1=X:L2=X+1 

40 FOR J=Y TO Y+4 STEP 2 

58 FOR I=L1 TO L2 

68 SET(I,J,C):SET(I,J+1,C) 
76 NEXT I 

88 L1=L1-2:L2=L2+2 

98 NEXT J 

166 RETURN 

119 FOR J=Y TO Y+5 

126 FOR I=X-4 TO X+5 

136 SET(I,J,C) 

149 NEXT I,J 

158 RETURN 

168 L2=X+1 

178 FOR J=Y TO Y+4 STEP 2 
188 FOR I=X TO L2 

199 SET(I,J,C):SET(I,J+1,C) 
206 NEXT I 

216 L2=L2+2 

228 NEXT J 

238 RETURN 

248 FOR I=X TO X+1 

250 FOR J=Y TO Y+5 

268 SET(I,J,C) 

2708 NEXT J,I 

288 FOR I=X-4 TO X+5 

298 SET(L,Y+2,C):SET(I,Y+3,C) 
300 NEXT I 

318 RETURN 

320 FOR J=Y TO Y+4 STEP 2 
338 SET(X,J,C):SET(X,J+1,C) 
348 SET(X+1,J,C):SET(X+1,J+1,C) 
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358 X=X+2 

360 NEXT J:X=X-2 

370 SET(X,Y,C):SET(X, Y+1,C) 

388 SET(X+1,Y,C):SET(X+1,Y+1,C) 

390 SET(X~-4,Y+4,C):SET(X-3, Y+4,C) 

400 SET(X-4,Y+5,C):SET(X-3,Y+5,C) 

410 RETURN 

420 FORI=0T04:READA(I),B(1I):NEXT 

430 DATA30,2,8,18, 24,18, 38,18,54,18 

449 FORP=l1TO19 

458 CLS:PRINT"WHICH SHAPE MATCHES?" 

460 N=RND(5):X=A(8):Y=B(8):C=RND(3)+1:ONN GOSUB39, 
118,160,248, 320 

470 D=RND(4) 

488 FORM=1T04: X=A(M): Y=B(M):C=RND(3)+1 

498 IFM<>D THEN5S1@ 

5@8 K(M)=N:ONN GOSUB39,118,169,248,320:GOTO560 

510 E=RND(5):IFE=N THEN519 

520 IFM=1THEN559@ 

538 FORL=1TOM-1: IFE=K (L)THENS19 

549 NEXTL 

550 K(M)=E:ONE GOSUB30,118,168,249, 320 

569 NEXTM 

578 PRINT@388, "1{7 SPACES}2{7 SPACES}3{6 SPACES}4" 

589 SOUND290,1 

5909 ES=INKEYS: IFES=""THEN59@ 

608 IFVAL(ES)=D THEN 6290 

618 SOUND125,1:SOUND89, 1:GOTO599 

620 PRINT@448, "CORRECT!" 

638 SOUND89, 1:SOUND125,1:SOUND147,1:SOUND176, 2 

640 NEXTP 

650 PRINT: PRINT"TRY AGAIN? (Y/N) "3 

669 ES=INKEYS: IFES="Y "THEN44@ 

670 IFES<>"N"THEN660 

688 CLS:END 


The Model I version of Matching Shapes works like this: 


Line Function 

20 Branch past subroutines. 

30-390 Draw shapes. 

420-540 Draw title screen. 

550-570 Wait for ENTER key to be pressed. 


580 Perform quiz ten times. 

590 Clear screen and PRINT question. 

600 Randomly choose shape number N and draw shape 
to be matched. 

610 Randomly choose answer number. 
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620-710 Randomly draw four shapes for the four possible 
answers, making sure none of the shapes are the 


same. 

720 Wait for a key to be pressed. 

730-740 — If answer is incorrect, PRINT message and return for 
another response. 


750-770 If answer is correct, PRINT message, blink arrows 

under correct answer, and return for next problem. 
780-800 PRINT option to try again and branch appropriately. 
810 Clear screen and END. 


Program 4-13. Matching Shapes 
TRS-80 Mode! | 
28 GOTO 428 
39 L1=X+4:L2=X+5 
48 FOR J=Y TO Y+6 STEP 3 
5@ FOR I=Ll TO L2 
68 SET(I,J):SET(I,J+1):SET(I,J+2) 
76 NEXT I 
89 L1=L1-2:L2=L2+2 
98 NEXT J 
198 RETURN 
118 FOR J=Y¥ TO Y+8 
128 FOR I=X TO X+15 
138 SET(I,J) 
148 NEXTI,J 
158 RETURN 
168 L2=X 
178 FOR J=Y TO Y+8 
188 FOR I=X TO L2 
198 SET(I,J) 
269 NEXT I 
219 L2=L2+1 
228 NEXT J 
236 RETURN 
246 FOR I=X+4 TO X+7 
250 FOR J=Y TO Y+8 
268 SET(I,J) 
276 NEXT J,1I 
288 FOR I=X TO X+11 
290 SET(I,Y+3):SET(I,Y+4):SET(I,Y+5) 
300 NEXT I 
318 RETURN 
320 FOR J=Y+2 TO Y+5:FOR I=X TO X+13:SET(I,J):NEXT 
I,J 
330 FOR I=X+2 TO X+11:SET(I,Y+1):SET(I,Y+6):NEXTI 
348 FOR I=X+4 TO X+9:SET(I,Y):SET(I,Y+7):NEXT I 
359 RETURN 
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360 I=X:II=X+14 

376 FOR J=Y TO Y+7:SET(I,J):SET(I+1,J):I=I+2 

388 SET(II,J):SET(II+1,J):II=II-2:NEXT J 

398 RETURN 

428 CLS 

438 PRINT@144, "MATCHING SHAPES" 

469 X=18:Y=15:GOSUB39 

4890 X=70:Y=30:GOSUB11@ 

508 X=76:Y=15:GOSUB16@ 

520 X=36:Y=27:GOSUB24@ 

530 X=46:Y=12:GOSUB329 

549 X=98:Y=21:GOSUB3694 

550 PRINT@960,L"PRESS <ENTER> TO START"; 

568 ES=INKEYS: IFES=""THEN560 

576 IF ASC(ES)<>13 THEN56@ 

588 FOR P=1 TO 198 

598 CLS:PRINT"WHICH SHAPE MATCHES?" 

698 N=RND(6):X=56:Y=9:ONN GOSUB39,110,160, 248,320, 
360 

619 D=RND(4) 

628 FOR M=1T04:X=28*M-14:Y=38 

6308 IF M<>D THEN65@ 

649 K(M)=N:ONN GOSUB30,110,168, 240,328, 368:GOTO79@ 

659 E=RND(6):IFE=N THEN650 

660 IF M=l THEN69@ 

670 FORL=1TOM-1: IFE=K(L) THEN659 

688 NEXTL 

699 K(M)=E:ON E GOSUB39,118,168, 248,328, 360 

708 NEXTM 

718 PRINT@842,"1{13 SPACES}2{13 SPACES}3{13 SPACES}4" 

728 ES=INKEYS: IFES=""THEN720 

738 IFVAL(ES)=D THEN75@ 

748 PRINT@896,E$:" NO, TRY AGAIN. ":GOTO72G 

758 PRINT@896, “CORRECT{9 SPACES}" 

768 V=896+14*D-6: FORL=1T0O100: PRINT@V, "*****": sPRIN 
TQ@V, "{5 SPACES}"; :NEXTL 

770 NEXTP 

78@ PRINT:PRINT"TRY AGAIN? (Y/N)" 

7980 ES=INKEYS: IFES="Y"THEN589 

880 IFES<>"N"THEN799 

810 CLS:END 


The Matching Shapes program works like this on the TI-99/4A: 
Line Function 


110 Define R for use in choosing a random color. 
120 Branch past subroutines. 
130-470 Subroutines to draw shapes. 


480-600 Display title while defining graphic shapes. 
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610 
620 


Perform quiz ten times. 
Clear screen. 


630-680 Randomly choose shape number N and draw 


690 


shape to be matched. 
Randomly choose answer number D. 


700-870 Randomly draw four shapes for the four possible 


answers. The correct shape is in position D, and 
none of the shapes may be the same. 


880 PRINT question. 

890-910 Play a tone, then wait for a key to be pressed. 

920-950 If answer is incorrect, play notes and return for 
another response. 


960-1020 If answer is correct, PRINT three asterisks under 


correct choice, erase question, play musical effect, 
and return for next problem. 


1030-1060 PRINT option to try again and branch 


appropriately. 


1070-1080 Clear screen and END. 
Program 4-14, Matching Shapes 


118 
129 
130 
149 
158 
168 
178 
189 
196 
268 
210 
226 
23 
248 
258 
268 
270 
288 
298 
3808 
319 
328 
33 
348 
358 
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DEF R@INT(12*RND+5 ) 
GOTO 489 

CALL VCHAR(X,Y,96,3) 
CALL HCHAR(X+1,Y-1,96,3) 
RETURN 

FOR I=X TO X+2 

CALL HCHAR(I,Y-1,1904,3) 
NEXT I 

RETURN 

CALL HCHAR(X,Y-1,113) 
CALL VCHAR(X,Y,112,3) 
CALL HCHAR(X, Y+1,114) 
CALL HCHAR(X+1,Y=-1,112,3) 
CALL HCHAR(X+2,Y-1,116) 
CALL HCHAR(X+2,Y+1,115) 
RETURN 

CALL HCHAR(X,Y-1,121) 
CALL HCHAR(X+1,Y-1,12@) 
CALL HCHAR(X+1,Y,121) 
CALL HCHAR(X+2,Y-1,1208,2) 
CALL HCHAR(X+2,Y+1,121) 
RETURN 

CALL VCHAR(X,Y,128,3) 
CALL HCHAR(X,Y-1,129) 
CALL HCHAR(X,Y+1,130) 


Graphics 


368 CALL HCHAR(X+1,Y+1,131) 

378 CALL HCHAR(X+2,Y+1,132) 

388 CALL HCHAR(X+2,Y-1,133) 

398 CALL HCHAR(X+1,Y-1,134) 

496 RETURN 

418 CALL HCHAR(X,Y,137) 

426 CALL HCHAR(X+1,Y-1,138) 

430 CALL VCHAR(X+1,Y,136,2) 

449 CALL HCHAR(X+1,Y+1,139) 

459 CALL HCHAR(X+2,Y-1,149) 

468 CALL HCHAR(X+2,Y+1,141) 

470 RETURN 

486 CALL CLEAR 

499 PRINT TAB(7):"MATCHING SHAPES"ssses:e:3:333 

589 FOR C=96 TO 136 STEP 8 

5198 CALL CHAR(C, "FFFFFFFFFFFFFFFF" ) 

520 NEXT C 

530 FOR I=1 TO 16 

548 READ C,CS$ 

55@ CALL CHAR(C,CS) 

568 NEXT I 

576 DATA 113, 09030F1F3F3F7F7F,114,90COFOFS8FCFCFEFE 
,115,FEFEFCFCFP8POC,116, 7F7F3F3F1FOF83,121,88Ca 
EOFOF8FCFEFF 

588 DATA 129,80191930307070FOF,130, 8080COCOEGEOFOF, 
131, F8FB8FCFCFCFCF8F8, 132, FOFBEGESCSCH8G8, 133 

596 DATA OFOFO70703903019G1,134,1F1F3F3F3F3F1F1F,137 
, L8183C3C7E7EFFFF ,138,6918189303070970FOF ,139,888 
OSCOCOEGOEOFOF 

698 DATA 148,1F1F3F3F7F7FFFFF,141,F8F8FCFCFEFEFFFF 

619 FOR P=1 TO 18 

626 CALL CLEAR 

638 X=11l 

640 y=15 

658 RANDOMIZE 

660 N=IN=(6*RND+1 ) 

678 CALL COLOR(8+N,R,1) 

688 ON N GOSUB 139,168, 200,2708,330,418 

698 D=INT (4*RND+1 ) 

7086 FOR M=1 TO 4 

719 X=21 

720 Y=7*M—-1 

730 IF M<>D THEN 7798 

748 J(M)=N 

756 ON N GOSUB 130,168,208,278,338,418 

768 GOTO 860 

778 E=INT(6*RND+1 ) 

788 IF E=N THEN 770 

790 IF M=l THEN 8392 
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888 FOR L=1 TO M~1l 

810 IF E=J(L)THEN 772 

820 NEXT L 

838 J(M)=E 

848 CALL COLOR(8+E,R,1) 

858 ON E GOSUB 130,168, 208,278, 330,419 

860 NEXT M 

878 PRINT TAB(4);"1{6 SPACES}2{6 SPACES}3 
{6 SPACES}4" 

889 PRINT :: "WHICH SHAPE MATCHES?"::: 

898 CALL SOUND(150,1497,2) 

908 CALL KEY(@,K,S) 

919 IF S<l1 THEN 982 

920 IF K=48+D THEN 960 

938 CALL SOUND(108,330,2) 

948 CALL SOUND(100,262,2) 

958 GOTO 986 

968 CALL HCHAR(19,7*D-2,42,3) 

978 CALL HCHAR(21,3,32,20) 

989 CALL SOUND(188,262,2) 

998 CALL SOUND(198, 332, 2) 

1688 CALL SOUND(180,392,2) 

1918 CALL SOUND(200,523,2) 

1928 NEXT P 

1930 PRINT ::"TRY AGAIN? (Y/N)"; 

1048 CALL KEY(@,K,S) 

1850 IF K=89 THEN 689 

1060 IF K<>78 THEN 1846 

1878 CALL CLEAR 

1888 END 


Counting Shapes 

Computers: VIC-20; TRS-80 Color Computer; MC- 10; TRS-80 Model !; 
TI-O9/4A 

“Counting Shapes” is a program designed for preschool children 

or for anyone learning the concept of counting. One to nine shapes 

are drawn on the screen. You simply press the correct number key 

as an answer. To continue, the answer must be correct. After ten 

problems, you have the option to try again. 

This program, although simpler than “Matching Shapes,’ 
does use some of the same shapes. All three versions of Counting 
Shapes work in the same general way. 

The instructions to draw the shapes are in subroutines at the 
beginning of each program. The coordinates for the nine possible 
positions are then defined. A random color C is chosen for the 
objects, a random number N for the number of objects, and a 
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random number S for the shape. A FOR-NEXT loop draws the 
correct number of objects. 


Program 4-15. Counting Shapes 


(In 


VIC-20 
this program, make sure to use abbreviations for all BASIC keywords in the lines 


marked with an asterisk (*). If you don’t, the program will not run correctly. Refer to 
Appendix C, “BASIC Keyword Abbreviations,” for the proper abbreviations.) 


2 
4 


6 


*8 


18 
12 
14 
16 


18 


Y=39726 : T=36876 : POKE36878, 15:GOTO28 
POKEX, 168: POKEX+21, 168: POKEX+22, 168: POKEX+23, 168 
: POKEX+44, 168 
Z=X+Y:POKEZ, C: POKEZ+21,C: POKEZ+22,C: POKEZ+23,C:P 
OKEZ+44,C:RETURN 
FORI=X-1TOX+1 : POKEI, 160: POKEI+22, 168: POKEI+44,16 
9: POKEI+Y, C: POKEI+Y+22, C: POKEI+Y+44,C:NEXT:RETUR 
N 
POKEX, 233: POKEX+1 , 223 : POKEX+21, 233 : POKEX+22, 169 
: POKEX+23, 160: POKEX+24, 223 
Z=X+Y: POKEZ, C: POKEZ+1, C: POKEZ+21,C: POKEZ+22,C:P 
OKEZ+23,C: POKEZ+24, C: RETURN 
POKEX , 223 : POKEX+22, 160: POKEX+23 , 223 : POKEX+44, 16 
@; POKEX+45, 160: POKEX+46, 223 
Z=X+Y : POKEZ, C: POKEZ+22,C: POKEZ+23,C: POKEZ+44,C: 
POKEZ+45 , C: POKEZ+46, C: RETURN 
POKEX~1 , 233: POKEX, 160: POKEX+1, 223 : POKEX+21,168: 
POKEX+22, 160: POKEX+23, 169 
POKEX+43, 95 : POKEX+44, 168: POKEX+45, 105: Z=X+Y 
FORI=Z-1TOZ+1 : POKEI,C: POKEI+22,C: POKEI+44, C:NEX 
T:RETURN 
FORI=XTOX+66STEP22 : POKEIL, 168: POKEI+Y,C:POKEI+1, 
169: POKEI+Y+1,C:NEXT: RETURN 
FORD=1T06@ : NEXTD: RETURN 
PRINT" (CLR}" 
PRINT"{3 RIGHT}{BLU}COUNTING SHAPES" 
C=INT(6*RND(@)+2) :X=7794:GOSUB4 
C=INT(6*RND(@)+2) :X=7843:GOSUB8 
C=INT(6*RND(@)+2) :X=7850:GOSUB19 
C=INT(6*RND(@)+2) :X=7925:GOSUB14 
C=INT(6*RND(8)+2) :X=7954:GOSUB18 
C=INT(6*RND(@)+2):X=7981:GOSUB24 
FORI=1T09 : READW(I) :NEXT 
DATA7771, 7842, 7883, 7875, 7924, 7973, 7956, 8085, 888 
g 
PRINT"{17 DOWN}PRESS RETURN TO START."; 
GETES : ILFES=""THEN5® 
IFASC(ES) <>13THEN5@ 
FOR K=l1 TO 10 
PRINT" {CLR}" 
C=INT(6*RND(8)+2) 
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68 N=INT(9*RND(G)+1) 

62 S=INT(6*RND(G@)+1) 

64 FORL=1TON:X=W(L) 

66 ON S GOSUB4,8,19,14,18, 24 

68 NEXTL 

76 PRINT" {HOME}HOW MANY OBJECTS?" 

72 POKET, 225:FORD=1TO190 :NEXTD: POKET, @ 

74 GETES: IFES=""THEN74 

76 PRINTES 

78 IFASC(ES)=48+N THEN86 

80 POKET, 159:GOSUB26: POKET, 135:GOSUB26: POKET,@ 
82 PRINT" {HOME} {DOWN} {LEFT}"; 

84 GOTO72 

*86 POKET, 195 :GOSUB26: POKET, 207 :GOSUB26 : POKET, 215:G 

OSUB26 : POKET, 225 : GOSUB26 : GOSUB26 : POKET, 

88 NEXT K 

99 PRINT" {CLR}" 

92 PRINT"TRY AGAIN? (Y/N)" 

94 GETES: IFES="Y"THEN5S4 

96 IFES<>"N" THEN 94 

98 PRINT"{CLR}" 

188 END 


Program 4-16. Counting Shapes 
TRS-80 Color Computer; MC-10 


26 GOTO 428 

38 L1=X:L2=X+l 

48 FOR J=Y TO Y+4 STEP 2 
58 FOR I=Ll1 TO L2 

68 SET(I,J,C):SET(I,J+1,C) 
78 NEXT I 

89 L1=L1-2:L2=L2+2 

98 NEXT J 

198 RETURN 

110 FOR J=Y TO Y+5 

120 FOR I=X TO X+9 

138 SET(I,J,C) 

149 NEXT I,J 

158 RETURN 

160 L2=xX+t+l 

176 FOR J=Y TO Y+6 STEP 2 
188 FOR I=X TO L2 

199 SET(I,J,C):SET(I,J+1,C) 
200 NEXT I 

218 L2=L2+2 

220 NEXT J 

2390 RETURN 

249 FOR I=X TO X+l 

259 FOR J=Y TO Y+5 
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SET(I,J,C) 
NEXT J,I 
FOR I=X=-4 TO X+5 
SET(I,Y+2,C):SET(I,Y+3,C) 
NEXT I 

RETURN 

FOR J=Y TO Y+4 STEP 2 
SET(X,J,C):SET(X,J+1,C) 

SET (X+1,J,C):SET(X+1,J+1,C) 
X=X+2 
NEXT J:X=X=-2 
SET(X,Y,C):SET(X,Y+1,C) 
SET(X+1,Y,C):SET(X+1,Y+1,C) 
SET (X-4,Y+4,C):SET(X-3,Y+4,C) 
SET (X-4,Y+5,C):SET(X-3, Y+5,C) 
RETURN 

CLS 

PRINT @72, "COUNTING SHAPES" 
C=RND(3)+1 
X=10:Y=8:GOSUB 30 

=RND(3)+1 
X=20:Y=20:GOSUB 118 
C=RND(3)+1 

X=44:Y=16:GOSUB 160 
C=RND(3)+1 
X=380:Y=10:GOSUB 248 
C=RND(3)+1 
X=52:Y=8:GOSUB 326 

FOR I=l TO 9:READ X1(1),Y1(1):NEXT I 
DATA 8,4,16,14,28,6,38,14,44,4,52,16,4,28,28, 2 
2,48, 24 

PRINT @488, "PRESS ENTER TO START."? 
ES=INKEYS$:IF ES="" THEN 572 
IF ASC(E$)<>13 THEN 5708 

FOR K=l1 TO 10 

CLS 

C=RND(3)+1 

N=RND (9) 

S=RND(5) 

FOR L=1 TO N 

X=X1(L):Y=Y1(L) 
ON S GOSUB 38,119,160, 249, 326 
NEXT L 

PRINT "HOW MANY OBJECTS?" 
SOUND 227,2 

ES=INKEYS$:IF ES="" THEN 7906 
PRINT @298,ES 

IF ASC(ES$)=48+N THEN 7698 
SOUND 125,1:SOUND 89,1 
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748 
758 
769 
7708 
780 
790 
806 
819 
826 
830 


PRINT @20," " 

GOTO 780 

SOUND 89,1:SOUND 125,1:SOUND 147,1:SOUND 176, 2 
NEXT K 

CLS 

PRINT @258, "TRY AGAIN? (Y/N) " 

ES=INKEYS:IF ES="Y" THEN 590 

IF ES<>"N" THEN 882 

CLS 

END 


Program 4-17. Counting Shapes 


TRS-80 Model | 


26 GOTO 426 

36 L1=X+4:L2=xX+5 

48 FOR J=Y TO Y+6 STEP 3 
58 FOR I=L1 TO L2 


SET(1I,J):SET(I,J+1):SET(I,J+2) 


76 NEXT I 
89 L1=L1-2:L2=L2+2 
99 NEXT J 


RETURN 

FOR J=Y TO Y+8 

FOR I=X TO X+15 

SET(I,J) 

NEXTI,J 

RETURN 

L2=X 

FOR J=Y TO Y+8 

FOR I=X TO L2 

SET(I,J) 

NEXT I 

L2=L2+1 

NEXT J 

RETURN 

FOR I=X+4 TO X+7 

FOR J=Y TO Y+8 

SET(I,J) 

NEXT J,I 

FOR I=X TO X+11 
SET(I,Y+3):SET(1,Y+4):SET(I,Y+5) 

NEXT I 

RETURN 

FOR J=Y+2 TO Y+5:FOR I=X TO X+13:SET(I,J 
):NEXT I,J 

FOR I=X+2 TO X+11:SET(1I,Y+1):SET(I,Y+6): 
NEXTI 

FOR I=X+4 TO X+9:SET(L,Y):SET(I,Y+7):NEX 
T I 


Graphics 


RETURN 
I=X: ILI=X+14 
FOR J=Y TO Y+7:SET(I,J):SET(I+1,J):1I=I+2 
SET(II,J7):SET(II+1,J):II=II-2:NEXT J 
RETURN 
CLS 
PRINT@144, "COUNTING SHAPES" 
X=18:Y=15 :GOSUB3@ 
X=78: Y=38:GOSUB118 
X=76: Y=15:GOSUB16@ 
X=36: Y=27:GOSUB248 
X=46: Y=12:GOSUB329 
X=98: Y=21:GOSUB360 
FORI=1T09:READX1(1),Y1(1I):NEXTI 
DATA46,12,70,38,98,13,36, 27, 20,17,98, 27, 
76,15,2,9,8,33 
PRINT@9698, "PRESS <ENTER> TO START."; 
ES=INKEYS : IFES=""THEN580 
IF ASC(ES)<>13THEN58@ 
FOR K=l1 TO 10 
CLS 
=RND (9) 
S=RND (6) 
FOR L=1TON 
X=X1(L):Y=Y1(L) 
ON S GOSUB38,110,168, 240, 320, 3608 
NEXTL 
PRINT"HOW MANY OBJECTS?" 
ES=INKEYS: IFES=""THEN71@ 
PRINT@20,ES$ 
IF ASC(ES$)=48+N THEN77@€ 
PRINT@84, "SORRY, TRY AGAIN. ":FOR II=1T05 
OO:NEXTII 
PRINT@20," ":PRINT@84,"{17 SPACES}" 
GOTO719 
FOR II=1T010:PRINT@84,"{7 SPACES}":PRINT 
@84, "CORRECT": NEXTII 
FOR II=1T0200:ES=INKEYS: IFES <>""THEN78@ 
NEXTII 


PRINT@212, "GOOD WORK!" 
PRINT@516, "TRY AGAIN? (Y/N)" 
ES=INKEYS:IFES="Y" THEN69@ 
IFES <> "N"THEN819 

CLS 

END 
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Program 4-18. Counting Shapes 


119 
120 
138 
149 
158 
160 
178 
180 
198 
288 
219 
220 
230 
248 
256 
260 
278 
289 
290 
386 
319 
329 
338 
349 
358 
368 
378 
389 
398 
490 
41@ 
420 
430 
449 
452 
460 
476 
486 
496 
506 
518 
520 
530 
548 
558 
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TI-99/4A 


GOTO 479 

CALL VCHAR(X,Y,96,3) 
CALL HCHAR(X+1,Y-1,96,3) 
RETURN 

FOR I=X TO X+2 

CALL HCHAR(I,Y-1,184,3) 
NEXT I 

RETURN 

CALL HCHAR(X,Y-1,113) 
CALL VCHAR(X,Y,112,3) 
CALL HCHAR(X, Y+1,114) 
CALL HCHAR(X+1,Y-1,112,3) 
CALL HCHAR(X+2,Y-1,116) 
CALL HCHAR(X+2,Y+1,115) 
RETURN 

CALL HCHAR(X,Y-1,121) 
CALL HCHAR(X+1,Y=-1,128) 
CALL HCHAR(X+1,Y,121) 
CALL HCHAR(X+2,Y-1,129,2) 
CALL HCHAR(X+2,Y+1,121) 
RETURN 

CALL VCHAR(X,Y,128,3) 
CALL HCHAR(X, Y-1,129) 
CALL HCHAR(X,Y+1,13@) 
CALL HCHAR(X+1,Y+1,131) 
CALL HCHAR(X+2,Y+1,132) 
CALL HCHAR(X+2,Y-1,133) 
CALL HCHAR(X+1,Y-1,134) 
RETURN 

CALL HCHAR(X,Y,137) 

CALL HCHAR(X+1,Y-1,138) 
CALL VCHAR(X+1,Y,136, 2) 
CALL HCHAR(X+1,Y+1,139) 
CALL HCHAR(X+2,Y-1,1498) 
CALL HCHAR(X+2,Y+1,141) 
RETURN 

CALL CLEAR 

PRINT TAB(7);"COUNTING SHAPES"sssessess233 
FOR C=96 TO 136 STEP 8 
CALL CHAR(C, "FFFFFFFFFFFFFFFF " ) 
NEXT C 

FOR I=l TO 16 

READ C,CS$ 

CALL CHAR(C,CS) 

NEXT I 


Graphics 


569 DATA 113,00030F1F3F3F7F7F,114, 9OCOFOFEFCFCFEFE 
,115, FEFEPCFCF8FOC,116, 7F7F3F3F1FOFO3,121,80C0 
EOFOFSFCFEFF 

578 DATA 129,81910303097070FOF,1308, 808B0COCBEGEGFOF, 
131, F8FP8PCFCFCFCFB8F8, 132, FOFOEGEGCSCH8G8, 133 

589 DATA OFOFO707030301901,134,1F1F3F3F3F3F1F1F,137 
,18183C3C7E7EFFFF, 138, 91910393070 78FOF, 139,808 
SCOCOEOEOFOF 

599 DATA 1498,1F1F3F3F7F7FFFFF,141,F8F8FCFCFEFEFFFF 

668 FOR I=1 TO 9 

618 READ X1(I),Y1(I) 

626 NEXT I 

630 DATA 8,5,9,11,7,17,18,23,14,7,13,16,14,28,19,1 
1,18, 22 

649 FOR K=l TO 18 

658 CALL CLEAR 

669 C=INT(12*RND+5 ) 

678 N=INT(9*RND+1 ) 

688 S=INT(6*RND+1 ) 

699 CALL COLOR(S+8,C,1) 

700 FOR L=l TON 

718 X=X1(L) 

720 Y=Y1(L) 

738 ON S GOSUB 128,158,198, 268,320,408 

748 NEXT L 

758 PRINT “HOW MANY OBJECTS?" 

768 CALL SOUND(196,1497,2) 

778 CALL KEY(8,KE,ST) 

788 IF ST<l THEN 770 

796 CALL HCHAR(23,22,KE) 

800 IF KE=484+N THEN 852 

818 CALL SOUND(18@, 339,2) 

828 CALL SOUND(199,262,2) 

838 CALL HCHAR(23, 22,32) 

849 GOTO 760 

859 CALL SOUND(190@, 262,2) 

868 CALL SOUND(198,33@,2) 

878 CALL SOUND(19@,392,2) 

888 CALL SOUND(20@,523,2) 

890 NEXT K 

988 CALL CLEAR 

919 PRINT "TRY AGAIN? (Y/N)" 

926 CALL KEY(@,KE,ST) 

938 IF KE=89 THEN 648 

940 IF KE<>78 THEN 9290 

958 CALL CLEAR 

969 END 
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Locating Points 
Computers: VIC-20; TRS-80 Color Computer; MC-10; TI-99/4A 


A computer can easily use a tutorial program because it can respond 
differently to each different answer. Color and graphics make learn- 


ing even more fun. “Locating Points” teaches you how to locate 
points on a rectangular coordinate grid. This concept is often 
taught at the third-grade level, and reviewed in algebra classes. 
A random example point is first displayed, with the coor- 

dinates labeled. You can view as many examples as you want. 
Next, a randomly chosen point is shown, and you enter your 
estimate of its coordinates. You can then move to the last part of 
the program, where you're given a point’s coordinates. Using the 
proper movement keys (each program tells you what they are), 
you move the point until it is at the desired coordinates. The 
computer will tell you if you’ve placed the point correctly. 

This is how the VIC version works: 


Line Function 

2 PRINT title screen. 

4 Define volume and sound. 

6-7 Define string variables for grid. Delay loop. 

8-26 Draw grid and show example point. 

30-51 Present problem to give coordinates for given point. 

92-54 PRINT instructions. 

95-74 Present problem to locate point with given coordinates. 

75-79 PRINT option to have another problem, start over, or 
end program. The program then shifts appropriately. 

80-83 Label point and draw yellow lines from point to axis. 

84 Calculate graphics memory location. 

86 Play music for incorrect answer. 

88 Subroutine for correct answer. 

89 Delay loop for music. 

90-92 PRINT grid. 

94 Clear keyboard buffer. 

96-99 PRINT “PRESS RETURN” and wait for response. 

100 Clear screen and END. 


Program 4-19. Locating Points 


VIC-20 


(In this program, make sure to use abbreviations for all BASIC keywords in the lines 
marked with an asterisk (*). If you don’t, the program will not run correctly. Refer to 
Appendix C, “BASIC Keyword Abbreviations,” for the proper abbreviations.) 


2 PRINT" {CLR} {5 DOWN}{3 SPACES}{BLK}LOCATING POINT 
s" 
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4 POKE36878, 15:S=36876 

6 AS="{GRN}{2 sPACES}-{2 SPACES}-{2 SPACES}- 

{2 SPACES}-{2 SPACES}-{2 SPACES}-—":BS="{GRN}+ 
Ree LRE LAER aT ~ 7 

7 FORI=1T03000:NEXT 

8 GOSUB9OB 

10 PRINT"A POINT IS LOCATED BY AN X-COORDINATE AND 

A Y-COORDINATE (X,Y)." 

12 X=INT(4*RND(@) )+1:Y=INT(3*RND(@G) )+1 

14 GOSUB84: POKEC, 81: POKEC1, 2 

18 GOSUB8d 

22 PRINT: PRINT" {GRN}ANOTHER EXAMPLE? (Y/N) {BLU}";: 
GOSUB94 

24 GETRS:IFRS="Y"THENS 

26 IFRS<>"N"THEN24 

38 GOSUB9G:PRINT"WHERE IS THE POINT?":PRINT:PRINT" 
{BLK} ({RED}?{BLK}, {RED}?{BLK})"; 

31 X=INT(6*RND(@) ) : Y=INT(5*RND(@) ) s:GOSUB84: POKEC, 8 
1:POKEC1, 2 

32 GOSUB94 

33 GETRS: IFRS$=""THEN33 

34 IFASC(RS)<480ORASC(RS )>57THEN33 

35 POKE8999,ASC(RS) :POKE38819, 2:XS=RS$ 

36 GETRS: IFRS=""THEN36 

37 IFASC(RS)<480RASC(RS )>57THEN36 

38 POKE8101,ASC(R$) : POKE38821,2:YS$=R$ 

39 IFVAL(XS$) <>XTHEN42 

4@ IFVAL(YS$ )=YTHEN48 

*42 GOSUB86:PRINT"{2 SPACES} {BLK} (";RIGHTS(STRS$(X), 
1):",":RIGHTS(STRS(Y),1):")":GOSUB89 : GOSUB96 : GO 
TO3G 

48 GOSUB88:PRINT"{GRN}PRESS":PRINT"1 SAME TYPE PRO 
BLEM{3 SPACES}2 CONTINUE PROGRAM"; :GOSUB94 

50 GETRS$: IFRS="1"THEN3@ 

51 IFRS<>"2"THENSS 

52 PRINT" {CLR} {BLU}YOU WILL BE GIVEN THE COORDINAT 
ES (X,Y).":PRINT:PRINT"PRESS Fl TO MOVE UP” 

*53 PRINT:PRINTTAB(6);"F3 TO MOVE LEFT":PRINT:PRINT 

TAB(6);"F5 TO MOVE RIGHT":PRINTTAB(6);"F7 TO MO 

VE DOWN" 

*54 PRINT:PRINT"MOVE THE POINT TO THE CORRECT LOCAT 
Ion, {5 SPACES}THEN PRESS <RETURN>.{3 DOWN}":GOS 
UB96 

55 GOSUB9@ :X=INT(6*RND(Q)) :Y=INT(5*RND(@) ) sA=0:B=0 

56 PRINT"LOCATE (";RIGHTS(STRS$(X),1);","7 RIGHTS (ST 
RS(Y),1)3:")"3: :GOSUB94 

57 POKES, 231:GOSUB89 : P=7990-B*66+3*A: POKEP, 81:POKE 
P+38720,3 

58 GETRS: IFRS=""THEN58 
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94 
96 
97 
98 
99 


IFASC( RS )=13THEN73 

IFASC(RS) <>133THEN64 

B=B+1: IFB>4THENB=4 

GOTO72 

IFASC(RS) <>134THEN67 

A=A-1 : IFA<OTHENA=0 

GOTO72 

IFASC(RS)<>135THEN7Z 

A=A+1 : IFA> 5THENA=5 

GOTO72 

IFASC(RS)<>136THENS8S 

B=B=1 : IFB<@THENB=0 

POKEP , 91: POKEP+30728,5:GOTO57 
GOSUB84 : IFP=CTHEN75 

GOSUB86 : POKEC, 81 : POKEC1 , 2: GOSUB96 :GOTO52 
GOSUB88 : PRINT" {GRN}PRESS":PRINT" 1 SAME TYPE PR 
OBLEM{3 SPACES}2 START PROGRAM OVER{2 SPACES}3 
{SPACE}END PROGRAM"; :GOSUB94 

GETRS : IFRS="1"THENS 2 

IFRS="2"THENS 

IFRS="3"THEN1OO 

GOTO76 

FORI=C1+1T0C1+5 :POKEI,2:NEXT 

POKEC+1 , 40: POKEC+2 , X+48 : POKEC+3 , 44: POKEC+4, Y+48 
s POKEC+5, 41 
FORI=C1+227T038710+X* 3STEP22 : POKEL, 7: NEXT 
FORI=C1-1T0C1-X* 3STEP=-1 : POKEI, 7:NEXT: RETURN 
C=7999-Y*66+3*X:Cl=C+307 24 : RETURN 

POKES, 159: GOSUB89 : POKES, 135: GOSUB89 : RETURN 
PRINT" {RED} CORRECT!" : POKES, 195 :GOSUB89: POKES, 2 
97 :GOSUB89 : POKES, 215 : GOSUB89 : POKES , 225 : GOSUB89 
FORI=1T0158 :NEXT: POKES , @: RETURN 

PRINT" {CLR} {BLK}{2 SPACES} Y":PRINTAS : PRINT" 
{BLK} 4">BS:PRINTAS:PRINTAS:PRINT" {BLK}3";B$:PR 
INTAS :PRINTAS:PRINT” {BLK}2";B$:PRINTAS : PRINTAS 
:PRINT" {BLK}1";B$:PRINTAS:PRINTAS 

PRINT" {BLK}9";BS;"{BLK}X{2 SPACES}@{2 SPACES}1 
{2 SPACES}2{2 SPACES}3{2 SPACES}4{2 SPACES}5 
{BLU} ":PRINT: RETURN 
FORI=1T010:GETRS : NEXT: RETURN 

PRINT: PRINT:PRINT"{GRN} PRESS RETURN"; :GOSUB94 
GETRS : IFRS="""THEN97 

IFASC(RS )<>13THEN97 

RETURN 


198 PRINT" {CLR} {BLU}":END 
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Here’s how the program works on the Color Computer: 


Line Function 

1 Branch past subroutines. 

2-3 PRINT grid. 

4-7 PRINT “PRESS ENTER” and wait for response. 

8-9 Choose point and calculate graphics print position. 

10 Calculate coordinates to SET point. 

11 Play music for incorrect response. 

12 Play music for correct response. 

13-14 PRINT title screen and define string variables for 
grid graphics. 

15-18 Draw grid with example point. 

19-30 Present problem to find coordinates for given point. 

31-32 PRINT instructions. 

33-52 Present problem to locate point with given coordinates. 

53-57 PRINT option to have another problem, start over, or 


end program; program branches appropriately. Clear 


screen and END. 


Program 4-20. Locating Points 
TRS-80 Color Computer; MC-10 


1 GOTO13 
2 CLS:PRINT" Y":AS:FORX=3TOILSTEP-l:PRINT" " : RIGHTS 
(STRS(X),1):BS:PRINT" "sAS:PRINT" “;AS:NEXT 


3 PRINT@321,"0";BS$:PRINT@354, "@{4 SPACES}1 

{4 SPACES}2{4 SPACES}3{4 SPACES}4{4 SPACES}5 x" 

: PRINT: RETURN 

PRINT@496, "PRESS <ENTER>": 

RS=INKEYS: ILFRS=""THENS 

IFASC(RS)<>13THENS 

RETURN 

X=RND(5) 

Y=RND (3): A=322-96*Y+X*5: PRINT@A, CHRS (159);CHRS(1 

59); :RETURN 

19 B=4+X*16:C=20-6*Y:FORI=C+2 TO298:SET(B,1,4):SET( 
B+2,1,4):NEXT:FORI=B-2 TO4STEP-1:SET(I,C,4):NEX 
T: RETURN 

11 SOUND125,2:SOUND89, 2: RETURN 

12 SOUND89, 2:SOUND125, 2: SOUND147, 2: SOUND176, 4: RETU 
RN 

13 CLS:PRINT@197,"** LOCATING POINTS **":CS=CHRS (1 
75 ):D$S=C$+c$+c$+c$+cs$ :ES="{3 SPACES}"+c$+cCS$:AS= 
ES:BS=D$ 

14 FORI=1T04:AS=AS+ES : BS=B$+DS$ : NEXT : AS=C$+CS+AS:BS$ 
=C$+CS$+BS+C$+CS$ : FORD=1TO2099:NEXT 


OONA UA 
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15 


GOSUB2:PRINT"A POINT HAS AN X-COORDINATE 

{5 SPACES]AND A Y-COORDINATE (X,Y). ":X=RND(4):G 
OSUB9 :XS=RIGHTS (STRS$ (X),1) 

Y$=RIGHTS (STRS(Y),1):PRINT@A+2, "("4XS+", "+Y¥S+") 
“s sGOSUB1O: PRINT@480, "ANOTHER EXAMPLE? (Y/N) "3; 
RS=INKEYS : IFR$="Y"THEN15 

IFRS <> "N"THEN17 

GOSUB2 :GOSUB8: PRINT@416, "WHAT ARE THE COORDINAT 
ES?":PRINT"{5 SPACES} (?,?)" 
US=INKEYS : LFUS=""THEN29 

PRINT@454,US; 

VS=INKEYS : IFVS=""THEN22 

PRINT@456,VS$3 

IFX<>VAL(US) THEN26 

IFY=VAL(V$) THEN27 

GOSUB11:GOSUB14: PRINT@469, "LOCATION IS (";RIGHT 
S(STRS(X),1)3", ":RIGHTS (STRS(Y),1)3")": sGOSUB4: 
GOTO19 

GOSUB12: PRINT@46Z, "CORRECT! '": GOSUB4: PRINT@496, L 
"{13 SPACES}"; 

PRINT@416, "PRESS 1 FOR SAME TYPE PROBLEM 

{9 SPACES}2 TO CONTINUE PROGRAM" 

RS=INKEYS: IFR$="1"THEN19 

IFRS$S<>"2"THEN29 

CLS: PRINT@66, "YOU WILL BE GIVEN THE":PRINT" CO 
ORDINATES.": PRINT@162, "USE THE ARROW KEYS TO MO 
VE ly 

PRINT" THE POINT TO THE CORRECT":PRINT" LOCAT 
ION, THEN PRESS <ENTER>. ":GOSUB4 

CLS :GOSUB2 :X=RND (5): Y=RND(3): PRINT@416, "LOCATE 
(";RIGHTS (STRS(X),1);",";RIGHTS$(STR$(Y),1)7")": 
D=4:E=20:B=4:C=29 

SET(B,C,2):SET(B+2,C, 2):SOUND227, 2 

RS=INKEYS: IFR$S=""THEN35 

IFASC(RS )=13THEN49 

IFASC(RS ) <>9THEN4@ 

D=B+18:IFD>54THEND=54 

GOoTO48 

IFASC (RS) <>8THEN43 

D=B-10: IFD<4THEND=4 

GOTO48 

IFASC(RS$ ) <>94THEN46 

E=C-6: IFE<2THENE=2 

GOTO48 

IFASC (RS) <>19THEN35 

E=C+6: IFE> 20THENE=29 

SET(B,C,3):SET(B+2,C,3): B=D:C=E:GOTO34 
D=4+X*10:E=20-6*Y:IFB<>D THEN51 

IFC=E THEN52 
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51 GOSUB11:SET(D,E,4):SET(D+2,E,4):GOSUB18:GOSUB4: 
GOTO33 

52 GOSUB12:PRINT@448, "CORRECT | ": GOSUB4 

53 PRINT@496,"{13 SPACES}";:PRINT@416, "PRESS 1 FOR 
SAME TYPE PROBLEM":PRINT"{6 SPACES}2 TO START P 
ROGRAM OVER": PRINT@486,"3 TO END PROGRAM"; 

54 RS=INKEYS: IFRS="1"THEN33 

55 IFRS="2"THENL5 

56 IFPRS<>"3 "THEN54 

57 CLS:END 


The TI-99/4A version is slightly diffrent, although the display 
is much the same as the other computers’ programs. 


Line Function 

100 Define random function. 

110-400 PRINT title screen and define graphics characters. 
410-430 Play music for incorrect answer. 

440-480 Play music for correct answer. 


490-550 PRINT grid. 
560-600 PRINT “PRESS ENTER’ and wait for response. 


610-770 Present random example of a point with 
coordinates. 
790-1150 Present problem to give coordinates for given point. 


1160-1200 PRINT instructions. 

1210-1710 Present problem to locate point with given 
coordinates. 

1720-1770 Give option to repeat problem or end, and then 
branch appropriately. 

1780-1830 Choose random point. 

1840-1870 Draw vertical red line from point to X-axis. 


1880-1910 = Draw horizontal red line from point to Y-axis. 
1920 END. 


Program 4-21. Locating Points 
TI-O9/4A 


198 DEF R(N)=INT(N*RND+1 ) 

118 CALL CLEAR 

129 PRINT "i4 SPACES } Fee Kee KN, 
{4 SPACES}*";TAB(23);"*":"{4 SPACES}* LOCATING 
POINTS *" 


138 PRINT "{4 SPACES}*";TAB(23);"*":"{4 SPACES} *** 
KRREKKKKKKRKKEKEREN, Ce eweoee 


149 AS="1818181818181818" 
159 BS="181818FFFF181818" 
168 C$="O90G0OFFFF" 
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FOR C=96 TO 112 STEP 8 


CALL 
CALL 
CALL 
NEXT 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


AS=" . 


CHAR(C,AS) 
CHAR(C+1,B$) 
CHAR(C+2,CS$) 
Cc 
CHAR(128, "183C7EFFFF7E3C18" ) 
CHAR (128, "183C7EFFFF7E3C18") 
CHAR (129, "@B8B00B9G030C30C" ) 
CHAR(1390, "638C390C") 
CHAR (94, "68102828444482FE" ) 
COLOR(19,5,1) 
COLOR(11,10,1) 
COLOR(12,11,1) 
COLOR(13,7,1) 
CHAR(140, "1810101010101" ) 
CHAR(141, "O@GOGBOFF" ) 
CHAR(142, "1018010F") 
COLOR(14,13,1) 

h h h h hhh" 


C$="abbabbahbabbahbabhbabbabb" 


CALL 
CALL 
GOTO 
CALL 
CALL 


CLEAR 
COLOR(2,2,1) 

618 

SOUND (180, 33, 2) 
SOUND (100, 262, 2) 


RETURN 


CALL 
CALL 
CALL 
CALL 


SOUND (188, 262, 2) 
SOUND (199, 338, 2) 
SOUND (188, 392, 2) 
SOUND (288,523,2) 


RETURN 


CALL CLEAR 

PRINT "{4 SPACES}Y":"{4 SPACES}";AS:" 

{4 SPACES}":A$:"{3 SPACES}4";B$:"{4 SPACES} "3A 
$:"{4 SPACES}";AS:"{3 SPACES}3";B$ 

PRINT "{4 SPACES}";:AS:"{4 SPACES}":AS$:" 

{3 SPACES}2":BS 

PRINT "{4 SPACFS}";AS$:"{4 SPACES}";AS$:" 

{3 SPACES}1";:BS:"{4 SPACES}";A$:"{4 SPACES} "7A 
$:"{3 SPACES}®":c$ 

PRINT "{4 SPACES}® 1 2 3 4 5 
CALL HCHAR( 298, 31,88) 

RETURN 

PRINT TAB(16):"PRESS <ENTER>?"; 
CALL KEY(@,K,S) 

IF K<>13 THEN 578 

CALL HCHAR(24,18,32,13) 

RETURN 


6 T7"see 
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619 GOSUB 499 
628 PRINT "THE LOCATION OF A POINT IS":"GIVEN BY I 
TS X-COORDINATE" 
638 PRINT "AND Y-COORDINATE (X,Y)" 
649 RANDOMIZE 
650 X=R(5) 
668 GOSUB 1790 
678 GOSUB 1842 
688 CALL HCHAR(Y1,X1+2,40) 
698 CALL HCHAR(Y1,X1+3,48+X) 
766 CALL HCHAR(Y1,X1+4,44) 
718 GOSUB 1880 
726 CALL HCHAR(Y1,X1+5,48+Y) 
738 CALL HCHAR(Y1,X1+6,41) 
749 PRINT : "WANT ANOTHER EXAMPLE? (Y/N)"3 
75@ CALL KEY(@,K,S) 
76@ IF K=89 THEN 619 
778 IF K<>78 THEN 756 
788 CALL CLEAR 
798 PRINT "YOU WILL BE SHOWN A POINT."::"PRESS THE 
NUMBER OF THE" 
888 PRINT :"X-COORDINATE THEN THE" 
816 PRINT :"NUMBER OF THE Y-COORDINATE."“s::3:2e32323 
828 GOSUB 562 
838 CALL CLEAR 
849 GOSUB 499 
85@ PRINT 3:3: 
868 RANDOMIZE 
878 GOSUB 1780 
888 CALL HCHAR(21,7,49) 
898 CALL HCHAR(21,9,44) 
998 CALL HCHAR(21,11,41) 
918 CALL KEY(@,K,S) 
928 CALL HCHAR(21,8,63) 
938 CALL HCHAR(21,8, 32) 
949 IF S<l THEN 914 
958 CALL HCHAR(21,8,K) 
969 X2=K 
978 CALL KEY(@,K,S) 
988 CALL HCHAR(21,10,63) 
998 CALL HCHAR(21,16,32) 
1086 IF S<l THEN 979 
1918 CALL HCHAR(21,10,K) 
1828 Y2=K 
1930 IF X2<>X+48 THEN 1100 
1049 IF Y2<>Y+48 THEN 11900 
1858 GOSUB 449 
1969 PRINT "PRESS": "1 FOR SAME TYPE PROBLEM": "2 TO 
CONTINUE PROGRAM"; 
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CALL KEY(@,K,S) 

IF K=49 THEN 830 

IF K=5@ THEN 1168 ELSE 1970 

GOSUB 419 

GOSUB 1846 

GOSUB 1888 

PRINT “THE CORRECT ANSWER IS (";STRS(X);3", "3S 
TRS (Y):")" 

GOSUB 569 

GOTO 830 

CALL CLEAR 

PRINT "NOW YOU WILL BE GIVEN THE":: 
ES." 
PRINT 3: 
NT TO 


"COORDINAT 
"USE THE ARROW KEYS TO MOVE"::"THE POI 
THE CORRECT" 

PRINT :"PLACE, THEN PRESS 
GOSUB 569 

CALL CLEAR 

GOSUB 499 

RANDOMIZE 

X=R(7) 

Y=R(4) 

X1=7+3*X 

Y1=17-3*yY 

PRINT :"PLOT (":STRS(X):",":STRS(Y)3")"s3 
C1=97 

A=17 

Al=A 

B=7 

B1=B 

CALL HCHAR(A,B,128) 

CALL KEY(@,K,S) 

IF S<l THEN 13598 

IF K=13 THEN 1628 

IF K<>69 THEN 1430 

IF A=5 THEN 13508 

CALL GCHAR(A-3,B,C) 

A=A=-3 

GOTO 1570 

IF K<>88 THEN 14890 

IF A=17 THEN 1350 

CALL GCHAR(A+3,B,C) 

A=A+3 

GOTO 1578 

IF K<>?83 THEN 1530 

IF B=7 THEN 13598 

CALL GCHAR(A,B-3,C) 

B=B-3 

GOTO 15790 


<ENTER>.“s3333 
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IF K<>68 THEN 1358 
IF B=28 THEN 1350 
CALL GCHAR(A,B+t3,C) 


B=Bt3 


CALL 
Al=A 
B1=B 
C1=C 
GOTO 
CALL 
CALL 


HCHAR(A1,B1,C1l) 


1348 
SOUND (158,1397,2) 
GCHAR(Y1,X1,C) 


IF C=128 THEN 1710 
GOSUB 419 


CALL 


HCHAR(Y1,X1,128) 


GOSUB 1849 
GOSUB 1889 
GOSUB 560 


GOTO 


1219 


GOSUB 448 
PRINT "PRESS": "l FOR SAME TYPE PROBLEM":"2 TO 


END 
CALL 


PROGRAM"; 
KEY (@,K,S) 


IF K=49 THEN 12190 
IF K<>5@ THEN 1730 


CALL 
STOP 


CLEAR 


=R(7) 
Y=R (4) 
X1=7+3 *X 
Y1=17-3*Y 
CALL HCHAR(Y1,X1,128) 
RETURN 
FOR I=Yl+l TO 17 


CALL 
NEXT 


HCHAR(I,X1,112) 
I 


RETURN 
FOR I=Xl-1 TO 7 STEP -1l 


CALL 
NEXT 


HCHAR(Y1,1,114) 
I 


RETURN 


END 


85 


Chapter 5 
Sound 


Few, if any, computers produce sound effects the same way. The 
VIC-20, for example, uses different commands to create sound 
than does the Commodore 64, even though both machines are 
Commodore computers. Translating BASIC to duplicate sound 
effects is difficult because of this. You have to know how both 
computers produce the sound in order to translate a program 
from one computer's version of BASIC to another. 

The programs in this chapter, “Musical Keyboard,” “Treble 
Clef,” and “Bass Clef,” are all examples of computer-generated 
sound. Since it is so hard to translate sound commands, all three 
programs have been listed for each of three computers: the 
VIC-20, the TRS-80 Color Computer, and the TI-99/4A. By com- 
paring the programs, you can see how the creation of sound was 
translated from one machine's version of BASIC to another. 


Musical Keyboard 
Computers: VIC-20; TRS-80 Color Computer; MC-10; TI-99/4A 


This program won't teach you how to play the piano, but it will 
help you remember the keys. The musical keyboard displayed on 
the screen consists of white and black keys. The program shows how 
the white keys are named — with the first seven letters of the alpha- 
bet. After the letter names are shown, there is a short quiz. A key 
is randomly chosen, and you must press the key’s letter name. If 
the letter pressed is correct, the correct note is played. You must 
answer correctly to continue. The quiz consists of ten keys. 
“Musical Keyboard” on the VIC works like this: 


Line Function 

2 Branch past subroutines. 

3-16 Define letter name of note AAG, tone S to be played, 
and coordinate CC of key. 


20-25 Draw the keyboards. 
26-29 Wait for RETURN to be pressed. 
30-31 PRINT title screen, define SS to play music, and turn 


on volume. 

32-33 Play scale for title screen. 

34-42 PRINT instructions. 

50-60 Present quiz for ten notes. 

51 Clear screen and randomly choose and draw one of 
two keyboards. 


52-55 Randomly choose key and blink an asterisk on the key. 
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56 
58 


60 


-57 PRINT message, then wait for key to be pressed. 
-59 If name is incorrect, sound a noise and return for 
another response. 
If name is correct, PRINT the letter name on the key, 


play the tone, and then go to next key. 


61-63 PRINT option to try again and branch appropriately. 


64 


Clear screen and END. 


Program 5-1. Musical Keyboard 


(In 


VIC-20 
this program, make sure to use abbreviations for all BASIC keywords in the lines 


marked with an asterisk (*). If you don’t, the program will not run correctly. Refer to 


Ap 


21 


22 


23 


24 


25 
26 
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pendix C, “BASIC Keyword Abbreviations,” for the proper abbreviations.) 


GOTO32 
AAS="C":S=131:CC=8: RETURN 
AAS="D" :S=145 :CC=3 : RETURN 
AAS="E":S=158:CC=6: RETURN 
AAS="F" :S=161 : IFK=1 THENCC=8 : RETURN 
CC=9 : RETURN 
AAS="G" 3: S=173 : LFK=1THENCC=11: RETURN 
CC=3 : RETURN 
AAS="A"3S=181 : IFK=1THENCC=14: RETURN 
CC=6 : RETURN 
AAS="B":S=189 : ILPFK=1 THENCC=17 : RETURN 
CC=9 : RETURN 
AAS="C"3S=192:CC=11:RETURN 
AAS="D" :$=280 :CC=14: RETURN 
AAS="E“ :S=206 :CC=17: RETURN 
FORKI=1T0190:PRINT” {BLK}{RVS}{2 SPACES} {OFF} 
{RVS}{2 SPACES} {OFF} B {RVS}{2 SPACES} {OFF} 
{RvS}{2 spaces}{oFF} [RvS}{2 SPACES}{OFF} B":NE 
XT 
FORKI=1T03:PRINT"{2 SPACES}kG3{2 SPACES }kG] 
B{2 SPACES}£G3{2 SPACES}EG3{2 SPACES}EG] 
B" :sNEXT: RETURN 
FORKI=1T010:PRINT" {BLK}{RVS}{2 SPACES} {OFF} 
{RVS}{2 SPACES}{oOFF} {RvS}{2 SPACES}{OFF} B 
{RvSs}{2 SPACES}{oFF}) {RVS}{2 SPACES} {OFF} B":NE 
XT 
FORKI=1T03:PRINT"{2 SPACES}£G3{2 SPACES} G3 
{2 SPACES}EG9 B{2 SPACES}EG3{2 SPACES}EG3 
B" : NEXT: RETURN 
FORI=1T07:PRINT"{2 SPACES}{RVS} {oFF} {RVS} 
{orF} {RVS} {oFF} B {RvS} {orF} {RVS} {OFF} B 
{rvS} {orrFr} {rvs} Torr} {rvs} ":NEXT:RETURN 
FORI=1T03:PRINT"{2 SPACES}B B B B B B B B B B": 
NEXT :PRINT"£22 YJ "“:RETURN 
PRINT" {2 DOWN}{GRN}PRESS RETURN"; 


Sound 


* 36 


38 


39 
*49 


41 


42 


58 
51 


52 
53 
54 
35 


GETAS : IFAS=""THEN27 

IFASC (AS ) <>13THEN27 

PRINT" {CLR} {BLU} ":RETURN 

PRINT" {CLR} {BLU}{3 DOWN}{2 SPACES}LET'S LEARN N 

OTES":PRINT"{2 DOWN){4 SPACES}THE KEYBOARD 

{7 Down}" 

SS=36876 : POKE36878,15 
DATA131,145,158,161,173,181,189,192 

FORI=1T08: READS: POKESS, S: FORD=1T0200 :NEXTD, 1:PO 

KESS, @ 

PRINT" {CLR} {DOWN} {BLU}A PIANO OR ORGAN" :PRINT"K 
EYBOARD HAS GROUPS{3 SPACES}OF TWO BLACK KEYS" 
PRINT"AND THREE BLACK KEYS. {2 DOWN} {BLK}":GOSU 
B24 :GOSUB25 : GOSUB26 

PRINT" {DOWN}LOOK AT A SET OF":PRINT"TWO {BLK]}BL 

ACK{BLU} KEYS:":PRINT"{DOWN}THE NAMES OF THE KE 
YS ARE C, D, AND E." 

PRINT" {BLK} {DOWN}": FORI=1T07:PRINT"{3 SPACES} 
kH3{3 SPACES}{RVS}{2 SPACES} {OFF}{3 SPACES} 
{RVS}{2 SPACES}{OFF}{4 SPACES}£H]I":NEXT 
PRINT"{3 SPACES}KHI{4 SPACES}£HI{4 SPACES} 
kHI{4 SPACES}EH3{6 SPACES}£HQ {RED}C{BLK} 

{2 SPACES}KH3 {RED}D{BLK}{2 SPACES}H] 
{RED}E{BLK}{2 SPACES}£H3":PRINT"{3 SPACES} 
kKHI{4 SPACES}KH3{4 SPACES}KH3{4 SPACES} 

RHI" 

PRINT"K22 YJ" :GOSUB26 

PRINT"THE LETTER NAMES OF{3 SPACES}THE KEYS ARE 
THE{6 SPACES]ALPHABET LETTERS{6 SPACES}UP TO G 
.{3 DOWN} {BLK}" 

GOSUB24:PRINT"{2 SPACES}B{SHIFT-SPACE}B 

{ SHIFT-SPACE}B{SHIFT-SPACE}B{SHIFT-SPACE]}B 

{ SHIFT-SPACE}B{ SHIFT-SPACE}B{SHIFT-SPACE}B 

{ SHIFT-SPACE}B{SHIFT-SPACE}B{2 SPACES}{RED]F 
{BLK}B{RED}G{BLK}B{RED}A{BLK}B{RED}B{BLK}B{ PUR} 
C{BLK]B{PUR}D{BLKJB{PUR}E{BLK]}B{ RED} F{BLK}B 
{RED} G[BLK}B{RED}A[BLK}B{RED}B[BLK}"; 

PRINT" {2 SPACES }B{ SHIFT-SPACE}B{ SHIFT-SPACE}B 

{ SHIFT-SPACE]}B{SHIFT-SPACE}B{SHIFT-SPACE}B _ 

{ SHIFT-SPACE}B{SHIFT-SPACE}B{SHIFT-SPACE}B 

{ SHIFT-SPACE}B{SHIFT-SPACE}K22 YJ" :GOSUB26 
FORI=1T0O19 — 

PRINT" {CLR} {BLK} ":K=INT(RND(1)*2)+1:ONKGOSUB2@, 
22:PRINT"K22 TI" 

N=INT(RND(1)*7)+1:ONKGOTO53,54 

ONNGOSUB3,4,5,6,8,18,12:GOTO55 

ONNGOSUB6,8,18,12,14,15,16 

POKE7944+CC, 42 :CS=38664+CC: FORD=1T028: POKECS,7: 
POKECS, 2:NEXT 
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56 
57 
58 
59 


69 


PRINT" {BLU}{3 DOWN}NAME THE NOTE" 

GETAS : LFAS=""THEN57 

IFAS=AASTHEN69 
POKE36877,128:FORD=1T048@ : NEXT : POKE36877 , 8: GOTO 
57 

POKE7944+CC, ASC (A$ )-64: POKESS, S: FORD=1 T0490 : NEX 


TD: POKESS, 9:NEXTI 
61 PRINT"{3 DOWN} {GRN}TRY AGAIN (Y/N)" 
62 GETAS : IFAS="Y" THEN5® 
63 IFAS<>"N"THEN62 
64 PRINT"{CLR}{BLU}":END 


The Color Computer version of the program works 
somewhat differently: 


46-48 
49 


Function 

Clear string space and branch past subroutines. 
Wait for user to press ENTER. 

Define sound S and letter name H$. 

PRINT title. 

Define string variables to PRINT keyboard. 

Present instructions to learn the letter names of 

the keys. 

Title for quiz. 

Draw keyboard. 

Present quiz. Choose a key randomly and blink a 
character under the key. If the answer is correct, the 
correct note plays. The key must be named correctly 
to continue. 

PRINT option to try again and branch appropriately. 
Clear screen and END. 


Program 5-2. Musical Keyboard 


OODOAA nu hWNE-@ 


TRS-80 Color Computer; MC- 10 


CLEAR3868:GOTO16 

PRINT@496, "PRESS <ENTER>?": 
GS=INKEYS: IFGS=""THEN2 
IFASC(GS)<>13THEN2 

CLS: RETURN 

S=5:HS="F": RETURN - 
S=32:H$="G": RETURN 
S=58:HS="A"s: RETURN 
S=78:HS="B": RETURN 
S=89:HS="C": RETURN 


18 S=198:HS="D": RETURN 
11 S=125:HS="E": RETURN 
12 S=133:HS="F": RETURN 
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13 S=147:HS="G"s: RETURN 

14 S=159:HS="A": RETURN 

15 S=179:HS="B": RETURN 

16 CLS:PRINT “ ** THE MUSICAL KEYBOARD **" 

17 AS=CHRS (159 )+CHRS (154)+CHRS (144): BS=CHRS (159)+c 
HRS (159)+CHRS (149): LS=CHRS (159 )+AS+AS+AS+BS+AS+ 
AS+B$+AS+AS+AS+CHRS (159) 

18 PRINT@129, “EACH KEY ON THE KEYBOARD":PRINT" HAS 

A SPECIFIC LETTER NAME. ":PRINT@225, "THE LETTER 
S WE USE ARE":PRINT" ABCD E F G"19 PRINT " Tf 
HEN THE LETTERS START OVER--":PRINT " ABCDEFGAB 
CDEFG ...":GOSUB1 

28 FORI=8TO192STEP32: PRINT@I , L$: NEXT: CS=CHRS (159)+ 
CHRS$ (159)+CHRS$(149):mMS="" 

21 BO OLB EMSOMS+CS NEXT :MS=CHRS (159) +MS-+CHRS (1 
59 

22 PRINT@224,M$:PRINT@256,M$:PRINT@289,"F G A B 

C D E F G A B"s:PRINT@353, "THE KEYBOARD 
HAS GROUPS OF":PRINT" 3 BLACK KEYS ALTERNATING" 

23 PRINT“ WITH GROUPS OF 2 BLACK KEYS.":GOSUB 1:PR 
INT" ONE OF THE EASIEST KEYS":PRINT" TO FIND IS 

a | e te 

24 PRINT@97, "FIND A GROUP OF TWO BLACK KEYS." 

25 FORI=179TO266STEP32:PRINT@I , AStAS+CHRS (159)+CHR 
$(159):NEXT 

26 FORI=298TO0330STEP32:PRINT@I , BS+tBS+CHRS (159 )+CHR 
$(159):NEXT 

27 PRINT@385, "JUST TO THE LEFT OF THE": PRINT@417, " 
TWO BLACK KEYS IS 'C'.":PRINT@339, "C": :GOSUBL 

28 PRINT @33,"'D' IS BETWEEN THE":PRINT “ TWO BLAC 
K KEYS.":PRINT “ ‘'E' IS ON THE RIGHT." 

29 FORI=202TO298STEP32:PRINT@I , AS+tAS+CHRS (159)+CHR 
$(159):NEXT 

38 FORI=336TO362STEP32: PRINT@I , BS+BS+CHRS (159 )+CHR 
$(159):NEXT 

31 PRINT@394,"C D E":GOSUB1:PRINT@33, "THE KEYS B 
Y THE GROUP OF":PRINT" 3 BLACK KEYS ARE:" 

32 FORI=202TO298STEP32: PRINT@I , AStAS+AS+CHRS (159)+ 
CHRS (159):NEXT 

33 FORI=330TO362STEP32: PRINT@I , BS+B$+BS+CHRS (159)+ 
CHRS (159):NEXT: PRINT@394,"F G A’ B":GOSUB1 

34 PRINT @228, "NOW FOR A QUIZ .. ."sGOSUB1 

35 CLS: FORI=0T0192STEP32:PRINT@I , L$:NEXT 

36 PRINT@224,MS$:PRINT@256,MS$: PRINT@394, "NAME THE K 
EY" 

37 FOR I=1 TO 198 

38 N=RND(11):IF N=Nl THEN 38 

39 P=286+3*N:N1=N:PRINT @P,CHRS (198) 

48 GS=INKEYS$:IF GS$="" THEN 40 
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ON N GOSUB 5,6,7,8,9,10,11,12,13,14,15 
IFGS=HSTHEN44 

SOUND125, 1:SOUND89, 1:GOTO4 
PRINT@P,G$:SOUNDS,15:PRINT@P," " 

NEXT 

PRINT@394," GOOD 11{4 SPACES}":PRINT@448, "TRY A 
GAIN? (Y/N)" 

ES=INKEYS:IF ES="Y" THEN 35 

IF E$<>"N" THEN 47 

CLS: END 


Here’s how the TI version of Musical Keyboard works: 


Line Function 

110-140 PRINT title screen. 

150-230 Define characters, strings, and colors for graphics. 
240-270 READ note name ASCII code and frequency for 


each key. 


280-420 Present instructions. 
430-700 Present quiz. Choose a key randomly and blink a 


question mark on the key. If the answer key pressed 
is correct, the correct note plays. R chooses one of 
two keyboards displayed. 


710-740 PRINT option to try again and branch appropriately. 
750-860 Draw musical keyboard. 

870-900 Wait for ENTER key to be pressed. 

910-920 Clear screen and END. 


Program 5-3. Musical Keyboard 


119 
128 
138 
149 
159 
169 
179 
189 
198 
266 
219 
220 
230 
249 
258 
268 
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TI-99/4A 


DIM N(13,2),L$(2),M$ (2) 

CALL CLEAR 

CALL SCREEN(8) 

PRINT " ** MUSICAL KEYBOARD **“ssze2s33333 
CALL CHAR(97, "0") 

CALL CHAR(98, "FFFFFFFFFFFFFFFF" ) 
CALL CHAR(99, "9101019101910191" ) 
CALL CHAR(198, “"888089888080808 " ) 

L$ (1 )="dabbabbacdabbabbabbacdabbabb" 
L$ (2)="bbabbabbacdabbabbacdabbabbab” 
MS (1 )="dacdacdacdacdacdacdacdacdacd" 
MS (2) ="cdacdacdacdacdacdacdacdacdac" 
CALL COLOR(9, 2,16) 

FOR C=1 TO 13 

READ N(C,1),N(C,2) 

NEXT C 
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278 DATA 67, 262,68, 294,69, 330,789,349, 71,392,65,448 
,66,494,67,523,68,587,69,659, 79,698, 71, 784,65, 
880 

288 R=l 

298 GOSUB 758 

308 PRINT ::"THE LETTER NAMES OF THE KEYS":: "ARE T 
HE FIRST 7 LETTERS":: "OF THE ALPHABET." 

316 DATA 67,68,69,79,71,65,66,67,68 

328 FOR C=4 TO 28 STEP 3 

338 READ G 

348 CALL HCHAR(15,C,G) 

358 NEXT C 

368 PRINT :"THE KEYBOARD HAS GROUPS OF"::"TWwO AND 
THREE BLACK KEYS." 

378 GOSUB 878 

389 GOSUB 758 

398 PRINT :"YOU MAY REMEMBER THAT JUST":: “LEFT OF 
THE TWO BLACK KEYS"::"IS THE KEY CALLED 'C'.": 

498 CALL HCHAR(14,4,67) 

418 CALL HCHAR(14, 25,67) 

428 GOSUB 878 

438 sc=0 

449 FOR T=1 TO 190 

458 F= 

468 RANDOMIZE 

478 R=INT(2*RND+1 ) 

489 X=INT(9*RND+1 ) 

499 J=3*X+R 

502 GOSUB 759 

518 PRINT ::::TAB(8);"NAME THE KEY": :::3 

520 IF R=l THEN 542 

538 X=X+4 

548 CALL HCHAR(14,J,63) 

558 CALL KEY(@,K,S) 

568 CALL COLOR(4,16,16) 

578 CALL COLOR(4,7,16) 

588 IF S<l THEN 55¢ 

599 IF K=N(X,1)THEN 630 

688 CALL SOUND(488,-8, 2) 

619 F=1 

628 GOTO 559 

638 CALL HCHAR(14,J,K) 

648 CALL SOUND(600,N(X,2),2) 

658 CALL SOUND(1,N(X,2), 30) 

668 IF F=l1 THEN 688 

678 SC=SC+1 

680 NEXT T 

698 CALL COLOR(4,2,1) 
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700 PRINT "SCORE";SC;: "OUT OF 19" 
710 PRINT ::"TRY AGAIN? (Y/N)" 
728 CALL KEY(@,K,S) 

730 IF K=89 THEN 430 

740 IF K=78 THEN 918 ELSE 728 
758 CALL CLEAR 

768 FOR C=1 TO 12 

778 PRINT LS(R) 

780 IF R=2 THEN 800 

798 CALL HCHAR(23,31,97) 

888 NEXT C 

818 FOR C=1 TO 3 

820 PRINT MS (R) 

830 IF R=2 THEN 858 

848 CALL HCHAR(23,31,97) 

858 NEXT C 

868 RETURN 

878 PRINT :"PRESS <ENTER>. "3 
888 CALL KEY(@,K,S) 

890 IF K<>13 THEN 889 

988 RETURN 

918 CALL CLEAR 

928 END 


Treble Clef Notes 
Computers: VIC-20; TRS-80 Color Computer; MC- 10; TI-99/4A 


“Treble Clef Notes” can help you learn to read the notes of the 
treble clef. You can more easily remember the notes by thinking 
of the word F-A-C-E for the letter names of the notes, starting 
with the bottom space. You can remember the phrase Every 
Good Boy Does Fine, which has been a standard phrase in teach- 
ing the treble clef line notes. The first letter of each word in the 
phrase represents the letter name of-the note, starting with the 
bottom line of the treble staff. 

After the names of the letters are introduced, there is a quiz 
of ten notes. A note is chosen randomly, and you press the key 
with the letter name of the note. If the answer is correct, the right 
note will play. You must be correct to continue the game. After 
ten problems, you have the option to try again or end the program. 


Treble Clef works like this on the VIC: 


Line Function 

2 Dimension N$ for the name of the note and the tone, 
turn volume on, and define S for sound. 

3 READ values for N$ from data. 
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8-12 PRINT title screen and play scale. 

14-24 PRINT menu screen of options and then branch 
accordingly. 

30-35 PRINT instructions to learn names of the space notes. 

37 Quiz for naming ten notes chosen randomly. 

40-46 Instructions to learn names of the line notes. 

48 Quiz for naming ten notes chosen randomly. 

50-63 Draw treble staff with note A chosen randomly. 


64-66 Clear the note. 
70-86 Perform the quiz. 


90 DATA for note names and tones. 
95-98 Wait for RETURN to be pressed. 
100 Perform quiz including all notes. 
200 Clear screen and END. 
Program 5-4. Treble Clef 

VIC-20 


(In this program, make sure to use abbreviations for all BASIC keywords in the lines 
marked with an asterisk (*). If you don’t, the program will not run correctly. Refer to 
Appendix C, “BASIC Keyword Abbreviations,” for the proper abbreviations.) 


2 DIMN$(8,1) : POKE36878, 15 :S=36876 
3 FORI=0TO8:READNS(I,8),NS(1I,1):NEXT 
8 PRINT" {CLR} {BLU} {2 DOowN}{2 SPACES}LET'S LEARN NO 
TES{2 DOWN}":PRINTTAB(5);"TREBLE CLEF” 
12 FORI=0TO8: POKES, VAL(NS$(I,1)):FORJ=1TO2808:NEXTJ, 
I:POKES,@ 
*14 PRINT" {CLR} {BLU}{2 DOWN}{5 SPACES}TREBLE CLEF 
{2 DOWN}":PRINT"CHOOSE:":PRINT" {DOWN} 1 NOTES O 
N SPACES":PRINT" {DOWN} 2 NOTES ON LINES" 
16 PRINT"{DOWN} 3 ALL TREBLE NOTES":PRINT" {DOWN} 4 
END PROGRAM":GETAS 
18 GETAS : IFAS=""THEN18 
28 IFASC(AS) <490RASC(AS) >52THEN18 
22 ONVAL(AS )GOSUB39, 48,1808, 2008 
24 GOTO14 
38 PRINT" {CLR} {DOWN}THERE ARE FOUR SPACES ON THE S 
TAFF." 
31 PRINT"THE NAMES OF THE NOTESON THE SPACES ARE:" 
:PRINT"{2 DOWN} {BLK}K21 Yj" 
*32 PRINTTAB(11);"{RED}E{BLK} (DOWN}":PRINT"K21 YJ 
poy RINTTAB(9) 7" {RED }C{BLK} [DOWN] ": PRINT" 
21 Yj" 
*33 PRINTTAB(7);:"{RED}JA{BLK} {DOWN}":PRINT"K21 Yq" 
: PRINTTAB(5);"{RED}F{BLK} {DOWN} ":PRINT"K21 Y3} 


35 PRINT" {BLU}REMEMBER THE WORD {RED}FACE":GOSUB95 
:Z=1 


97 


Sound 


37 
40 
41 


42 


*43 


44 


+45 


46 


48 


59 


52 


55 


608 


61 


FORI=1T019:A=(INT(RND(1)*4)+1)*2-1 :GOSUB79 :NEXT 
:Z=0 : RETURN 
PRINT" {CLR}THERE ARE FIVE LINES{2 SPACES}ON THE 
TREBLE STAFF. {DOWN}" 
PRINT"THE NAMES OF THE NOTESON THE LINES ARE: 
{BLK}":PRINT"{2 DOwN}ccccccccccccccccccc{ RED} F 
{BLK }cc" 
PRINT" [DOWN }cccccecccececcccc{ RED} D{BLK}cccccc 
{2 pown}ccccccccccc{RED FBT BLK} cccccccccc 
{2 DOWN }CcCCCCcCCT RED}G{ BLK} cccccceccccccc" 
PRINT" [DOWN }CCC{ RED} E{ BLK} ccccceccccccccccccc" :G 
OSUB95:PRINT"TO HELP YOU REMEMBER|2 SPACES STHE 
{SPACE}NOTES, THINK OF" 
PRINT"THIS PHRASE:":PRINT"{3 DOWN} {BLK}CCCCCCcCccC 
CCCccccccc{ RED} F{BLU}INE{BLK}c{2 Down}cccccccccc 
CCCTRED}D{BLU}OES{BLK}ccccc" | 
PRINT" {Down }cccccccccc{RED}B{BLU }oy{BLK}ccccccc 
cc{2 DOWN} CCCCCCTRED/G (BLUJOOD {BLK} occccGCCCCCG 
{Z DOWN }c{REDJETBLU } VERY { BLK } cccccccccccccccc™ ~ 
GOSUB95 
FORI=1T0190:A=(INT(RND(1)*5) )*2:GOSUB79 :NEXT: RET 
URN 
PRINT" {CLR} {BLK}{2 DOWN}{3 SPACES }UI {DOWN} 
i2 UprT ise": sPRINT"K3 YITTEL7 Y9{2 SPACES} 
M Nn" 
PRINT"E£2 Y3NOK18 YZ EMq EGq" 
PRINT"EYJPUOME17 Y3 £M¥ G@{2 SPACES}":PRI 
NT" KYIJPKYIGPK17 Y3{2 SPACES }MBN" 
PRINT"E3 Y3BK18 Y}{3 SPACES}B[DOWN}{2 LEFT} 
JK":PRINT"{4 DOWN} {BLU}NAME THE NOTE"; 
IFZ=1THENPRINT" {YEL} {2 SPACES }B{ UP} {LEFT}B{UP} 
{LEFT }UCCI{DOWN} {3 LEFT }wwH{ Down} (LEFT }H{Down} 
{4 LEPT}BIKH{DOWN} {4 LEFTJJFFK" 
B=22*A: POKE7935-B, 85 : POKE7936-—-B, 67 : POKE7937-B, 7 
3: POKE7957-B, 74: POKE7958-B, 70: POKE7959=B, 75 
FORII=38655-BT038657-B: POKEII, 2: POKEII+22,2:NEX 
T: RETURN 
POKE7935-B, 32: POKE7936—-B, 32: POKE7937—-B, 32:POKE7 
957=-B, 119: POKE7958-B, 119: POKE7959-B, 119 : RETURN 
POKE7935-B, 119: POKE7936=-B, 119: POKE7937-B,119:PO 
KE7957-B, 32: POKE7958-B, 32: POKE7959-B, 32 : RETURN 
GOSUB5@ 
GETAS : IFAS=""THEN72 
IFAS=NS (A, 9) THEN78 
POKE36877, 128: FORD=1TO6 :NEXT : POKE36877 , 8 :GOTO7 
2 
POKES, VAL(NS$(A,1)) :POKE7962-B, ASC(NS$(A,8) )-64:P 
OKE38682-B, 2 
FORD=1T0380 : NEXT : ONA+1GOSUB64, 66,64,66,64,66,64 
, 66,64 
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82 IFA/2=INT(A/2)THENPOKE7962-B, 119:GOTO86 

84 POKE7962-B, 32 

86 POKES, @:RETURN 

98 DATAE,158,F,161,G,173,A,181,B,189,C,192,D,288,E 
, 206,F, 208 

95 PRINT" {GRN}PRESS RETURN"; 

96 GETAS: IFAS=""THEN96 

97 IFASC(AS) <>13THEN96 

98 PRINT" {CLR} {BLU}":RETURN 

189 FORI=1TO10:A=INT(RND(1)*9) :GOSUB79:NEXT : RETURN 

2008 PRINT"{CLR}{BLU}":END 


On the Color Computer, Treble Clef works in this way: 


Line’ Function 


1 GOTO line 22, where the PRINT statements for the title 
screen and instructions begin. 

2-5 Routine for pressing the ENTER key to continue reading 
the instruction screens. 

6-15 Set tones and assign letters to H$ for the ten possible 
notes. 

16-21 Clear the screen and draw the treble staff on the screen. 

22-28 PRINT the title screen and instructions. At the end of 
each screen of instructions, the player must press the 
ENTER key tocontinue. 

29-30 After drawing the treble staff, place notes in the correct 
positions, as well as PRINT the mnemonics such as 
F-A-C-E and Every Good Boy Does Fine. 

31-35 Perform the quiz, randomly selecting one of the ten pos- 
sible notes. Asa key is pressed, the note plays and its 
letter is displayed. If the answer is correct, the reward 
message shows and the player is asked if another note 
is wanted. 

36 Wrong answer sound and return to line 33 for another 
key to be pressed. 

37-38 Reward sound and message. Player is asked if another 
round is desired. 

39-40 Begin the game again if Y was pressed or end the program 
if N was pressed. 


Program 5—5. Treble Clef 
TRS-80 Color Computer, MC-10 


1 GOTO22 
2 PRINT@464, "PRESS <ENTER>"; 
3 ES=INKEYS: IFES=""THEN3 
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18 


19 


20 
21 


22 


23 
24 


25 


26 


27 


28 
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IFASC (ES) <>13THEN3 
CLS : RETURN 
S=108:HS="D": RETURN 
S=125:H$="E": RETURN 
S=133:HS="F": RETURN 
S=147:H$="G": RETURN 


S=159:HS="A": RETURN 

S=170:HS="B": RETURN 

S=176:HS="C": RETURN 

S=185:HS="D": RETURN 

S=193:HS="E": RETURN 

S=197:HS$="F": RETURN 

CLS : PRINTI$+D$+CHRS (156 )+CHRS (156 )+F$+BS:PRINT@ 
32, IS+CHRS (154)+FS+CHRS (149 )+D$+BS$ : PRINT@64, KS+ 
KS+CHRS (146 )+J$+CHRS (145 )+CS$+A$ 

PRINT@96, IS+CHRS (154 )+CHRS (158)+CHRS (153 )+FS+BS$ 
: PRINT@128, KS+JS+CHRS (144) +C$+CHRS (145 )+KS+AS$:P 
RINT C160, GE+CHRS (158) +CHRS (153) +FS+CHRS (149) 468 
+B 
PRINT@192,KS+CHRS (145 )+CS+CHRS (145 )+CS$+CHRS (145 
)+CS+CHRS (146 )+CS+AS : PRINT@224, FS+CHRS (154) +FS+ 
CHRS$ (151 )+D$+CHRS (149 )+FS+CHRS (149 )+BS 
PRINT@256, KS+CHRS (145 )+KS+CHRS (146 )+30$+CHRS (145 
)+AS$ :PRINT@288, GS+CHRS (155 )+CHRS$ (158 )+CHRS (157) 
+DS$+CHRS (154)+CHRS (158 )+CHRS (156 )+CHRS (151)+BS$ 
PRINT@320 , KS+I$+JI$+CHRS (146 )+KS+AS: PRINT@352,F$ 
+FS+CHRS (158 )+FS+CHRS (154)+G$+B$ 
PRINT@384,GS$+FS+CHRS (158 )+CHRS (156 )+CHRS$ (149)+G 
S+BS$ :PRINT@416, I$+GS+FS+B$ : RETURN 

CLS:PRINT"{4 SPACES}** TREBLE CLEF NOTES **":A$ 
=""sRBS=""5CS=CHRS (147): DS=CHRS (159): FORI=1T021: 

AS=AS$S+CS$ : BS=BS+D$ : NEXT 

FS=DS+DS$ :GS=FS+DS$: I1S=G$+G$ :JS=C$+cC$ : KS=J$+c$ 
PRINT@97, "EACH NOTE DRAWN ON THE":PRINT" TREBLE 
STAFF REPRESENTS A":PRINT" CERTAIN NOTE ON THE 
KEYBOARD. " 

PRINT@225, "IF YOU LEARN THE LETTER NAMES 

{3 SPACES}OF THE NOTES YOU CAN FIND THE 

{3 SPACES }CORRECT NOTE ON THE KEYBOARD. ":GOSUB2 
PRINT@33, "THERE ARE TWO PHRASES TO":PRINT" HELP 
LEARN THE TREBLE NOTES. ":PRINT@129, "THE WORD ' 
F AC E' REPRESENTS" 

PRINT" THE NOTES ON THE SPACES. ": PRINT@257, "THE 
LINE NOTES ARE THE FIRST":PRINT" LETTERS OF EA 
CH WORD IN" 

PRINT" THIS PHRASE: ": PRINT@353, "EVERY GOOD BOY 
DOES FINE.":PRINT" -{5 SPACES}-{4 SPACES}- 

{3 SPACES}-{4 SPACES }-":GOSUB2 
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29 GOSUB16:PRINT@499,"F A Cc E"::PRINT@3064, "F":; 
PRINT@243, "A": :PRINT@182, "C";::PRINT@121, "E“; :GO 
SUB2 

38 GOSUB16:PRINT@331, "EVERY": :PRINT@272, "GOOD"::PR 
INT@212, "BOY": :PRINT@151, "DOES": : PRINT@90, "FINE 
"e sGOSUB2 

31 FORI=1T019:GOSUB16:PRINT@458, "NAME THE NOTE":N= 
RND (18):Z=N*2 

32 FORX=41T046:FORY=Z TOZ+3:SET(X,Y,4):NEXTY,X 

33 ESSINKEYS: IFES=""THEN33 

34 ONN GOSUB1L5,14,13,12,11,10,9,8,7,6 

35 IFES=HSTHEN37 

36 SOUND125,1:SOUND89, 1:GOTO33 

37 PRINT@N*32+54,ES;:SOUNDS,15:NEXT 

38 CLS:PRINT@234, "GOOD WORK! ":PRINT@328, "TRY AGAIN 
2? (Y/N)" 

39 ES=INKEYS : IFES="Y"THEN31 

49 IFES<>"N"THEN39 

41 CLS:END 


The TI version of Treble Clef operates like this: 


Line Function 

110-130 PRINT title screen. 

140-170 READ note name and frequency for each of the 
notes on the clef. 

180-280 Define characters for graphics. L$ will print a line. 

290-440 Present instructions to learn the names of the notes. 

450-750 Perform the quiz of ten notes chosen randomly. Note 
is played when correct key is pressed. The answer 
must be correct to continue. 

760-810 PRINT option to try again and branch appropriately. 

820-860 Draw the treble staff. 

870-910 Wait for ENTER key to be pressed. 

920-930 Clear screen and END. 


Program 5-6. Treble Clef 
TI-O9/4A 
119 DIM N(9, 2) 
128 CALL CLEAR 
130 PRINT TAB(6);"** TREBLE CLEF **"sesssssss3233 
149 FOR C=1 TO 9 
15@ READ N(C,1),N(C,2) 
166 NEXT C 
178 DATA 70,698,69,659, 68, 587,67,523,66,494,65,449 
,71,392,78,349,69, 338 
189 FOR C=96 TO 131 
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190 
28D 
210 
220 


230 


249 


256 


266 


270 


280 
290 
300 


319 
320 
330 
348 
358 
368 
370 


389 


398 
400 
410 
420 
430 
446 
4590 
468 
479 
486 


498 
506 
518 
520 
538 
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READ C$ 

CALL CHAR(C,C$) 

NEXT C 

DATA SOSDOOFF , 99000384482828282 , 828282828282828 
2, 848488FF88909BA , SOOGHSHOGHG10192, ADASCIUCOCH4 
9494 

DATA S408190FF2040808, 494940FF29290202 , 918204040 
819191, 20202902620292802, 202040FF4949494 , BOBOOOF 
FO0304981 

DATA 191010FF1910191, JO2G9OFF18949201 , 89898880 
8989808 , 102920202940404 , B8BG08H808H98G88898 , CH202 
919108888908 

DATA 8O08080FF4949402 , 404G40FF202019090C,B40404FF 
949480404 , 2020191998849493 , 92020202092818101 , 982 
81918020498 

DATA 894038FF ,019101FF919019191,930C30FF,819101 
191010191 ,8191919111119E, DBVOPGGSSIOF3GC , BOBO 
BOSSOSFOOCH3 

DATA 9182020494946 201 , 7068808304949904 , 80494820 
2929498 , 8660190F , O10608F 

LSSUs SSS essssssssssesseccca 

GOSUB 8294 

PRINT : "THINK OF THE WORD ‘FACE' FOR": :"THE NO 
TE NAMES ON SPACES."s:: 

CALL HCHAR(14,14,7@) 

CALL HCHAR(12,17,65) 

CALL HCHAR(19,28,67) 

CALL HCHAR(8, 23,69) 

GOSUB 878 

GOSUB 826 

PRINT :"MEMORIZE THIS PHRASE TO HELP": : “LEARN 
LINE NOTES EG BD F."s::3 

DATA 15,69,15,86,15,69,15,82,15,89,13,71,13,79 
,13,79,13,68,11,66,11,79,11,89,9,68,9,79 

DATA 9,69,9,83,7,79,7,73,7,78,7,69 

FOR I=9 TO 28 

READ C,G 

CALL HCHAR(C,I,G) 

NEXT I 

GOSUB 876 

GOSUB 820 

PRINT TAB(8);"NAME THE NOTE": 3:33: 

FOR T=1 TO 10 

RANDOMIZE 


X=INT (9*RND+1 ) 

J=54+X 

CALL HCHAR(J, 20,125) 
CALL HCHAR(J, 21,126) 
CALL HCHAR(J+1,19,127) 
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548 CALL HCHAR(J+1, 22,129) 

558 CALL HCHAR(J+2, 28,130) 

569 CALL HCHAR(J+2,21,131) 

578 CALL HCHAR(J+1, 21,128) 

580 CALL SOUND(159,1397,4) 

599 CALL KEY(@,K,S) 

600 IF S<l THEN 590 

619 IF K=N(X,1)THEN 6492 

628 CALL SOUND(208,-5,4) 

638 GOTO 590 

649 CALL HCHAR(J+1,21,N(X,1)) 

658 CALL SOUND(509,N(X,2),2) 

668 CALL SOUND(1,N(X,2), 398) 

670 IF X/2=INT(X/2)THEN 720 

688 CALL HCHAR(J,29,32,2) 

698 CALL HCHAR(J+1,19,96,4) 

706 CALL HCHAR(J+2,29,32,2) 

718 GOTO 7508 

728 CALL HCHAR(J,28,96,2) 

738 CALL HCHAR(J+1,19, 32,4) 

748 CALL HCHAR(J+2,20,96,2) 

759 NEXT T 

766 PRINT "GOOD! TRY AGAIN? (Y/N) "? 

778 CALL KEY(9,K,S) 

780 IF K=78 THEN 9290 

790 IF K<>89 THEN 770 

8806 CALL HCHAR(24,13,32,15) 

818 GOTO 459 

828 CALL CLEAR 

838 PRINT TAB(9);"TREBLE CLEF"::: _ 

849 PRINT " a™:"  b's"***e**"EL$:" de":" fg 
"eLS? Th h its "*3k1lm* "eLs 

856 PRINT " nop q":" rst t"&L$:" u v w": 
S;" {"," {";" a 

869 RETURN 

878 PRINT :TAB(16);"PRESS <ENTER>"; 

888 CALL KEY(@,K,S) 

899 IF K<>13 THEN 8890 

988 CALL HCHAR(24,18,32,13) 

918 RETURN 

928 CALL CLEAR 

930 END 


In this program, you'll see spaces between quotation marks, 
such as“ ™” Type in the quote marks and press the space bar the 
correct number of times. If it’s hard to tell how many spaces to 
enter, you can use the line above as a reference. For example, in 
line 850, you can tell that three spaces are needed near the line's 
end by counting the characters in line 840 directly above the gap. 


a 4a 


eo* 8 


xyZ- "EL 
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Bass Clef Notes 

Computers: VIC-20; TRS-80 Color Computer; MC-10; TI-99/4A 

Similar to Treble Clef, this program introduces you to bass clef 
musical notes. The letter names can be remembered by two 
animal phrases — All Cows Eat Grass for the space notes, and 
Great Big Dogs Fight Animals for the line notes. The first letter 
of each word in the phrase is the letter name of the musical 
note. Both letter strings start with the notes at the bottom and 
move upward. 


A note is randomly drawn on the bass staff, and you must 


press the key with the letter name of that note. If the answer is 
correct, the correct note or a short musical tune will play. After a 
quiz of ten notes, you can try again or end the program. 


The program explanation for each computer's version is 


almost identical to those for Treble Clef Notes, except that this 
program uses bass clef notes. Refer to the program descriptions 
for Treble Clef if you want to see how each program works. 


Program 5-7. Bass Clef 


VIC-20 


(In this program, make sure to use abbreviations for all BASIC keywords in the lines 
marked with an asterisk (*). If you don't, the program will not run correctly. Refer to 
Appendix C, “BASIC Keyword Abbreviations,” for the proper abbreviations.) 


2 


DIMNS (8,1) : POKE36878, 15:S=36874:FORI=0TO8 : READNS 
(I,8),NS(I,1) NEXT 


3 Y$="R26 Yq" 


6 
8 
*18 


12 


14 
15 
16 
18 
* 3 


*32 
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PRINT" {CLR} {BLU}{2 DOWN}({2 SPACES}LET'S LEARN NO 
TES{2 DOWN}”:PRINTTAB(6);"BASS CLEF" 

FORI=0TO8 : POKES, VAL(NS$(I,1)) :FORJ=1T0209:NEXTJ,I 
: POKES, @ 


PRINT" {CLR} {BLU} {2 DOWN}{6 SPACES]}BASS CLEF 

{2 DOWN}":PRINT" CHOOSE:":PRINT" {DOWN} 1 NOTES 
{SPACE}ON SPACES": PRINT" {DOWN} {SHIFT-SPACE}2 NO 

TES ON LINES" 

PRINT" {DOWN} 3 ALL BASS NOTES":PRINT" {DOWN} 4 E 

ND PROGRAM" :GETAS 

GETAS : IFAS="""THEN14 

IFASC (AS ) <49ORASC(AS ) >52THEN14 

ONVAL (AS )GOSUB3@,78,88,99 

GOTO19 

PRINT" {CLR} {DOWN}THERE ARE FOUR SPACES ON THE S 

TAFF.{DOWN}":PRINT"THE NAMES OF THE NOTESON THE 
SPACES ARE:" 

PRINT"{2 DOWN} {BLK}";Y$:PRINTTAB(11);"{RED}G 

{ BLK} {DOWN} ":PRINTYS : PRINTTAB(9);"{RED}E{BLK} 
{DOWN} ":PRINTYS :PRINTTAB(7);"{RED}C{BLK} {[DOwN}" 
: PRINTYS : PRINTTAB(5);"{RED}A{BLK} {DOWN} ": PRINTY 
$ 
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34 PRINT"(BLU}REMEMBER THE PHRASE{3 SPACES}{RED}A 
{BLK}LL {RED}C{BLK}OWS {RED}E{BLK}JAT {RED}G 
{BLK} RASS" :GOSUB95 

*35 PRINT" {CLR} {BLK}{4 DOWN}":PRINTYS :PRINTTAB(14); 
“{RED}G{ BLU} RASS{BLK}":PRINTYS : PRINTTAB(19) ;:" 
{RED} E{BLU}AT{BLK}":PRINTYS :PRINTTAB(S5):"{RED}C 
{BLU }OWS{ BLK)": PRINTY$: PRINT" {REDJA{BLU} LL 

BLK}" 

36 PRINTYS:PRINT"{5 DOWN}":GOSUB95 

38 FORI=1T010:A=(INT(RND(1)*4)+1)*2-1:GOSUB49 : NEXT 
: RETURN 

49 PRINT" {CLR} {BLK}{4 DOWN}E2 YINEYIME17 Y3 
{SPACE}ENI{3 SPACES}M Q":PRINT"E2 Y9K 
E2 YaPEYIQE14 Ya(5 SPACES} EMJ" 

42 PRINT"£5 Y9NK16 Y3{4 SPACES]N":PRINT" 

K3 YIJNK18 YY":PRINTYS;"f2 vq" 

44 PRINT"{4 DOWN]}{BLU}NAME THE NOTE" 

*46 B=22*A:POKE7935-B, 85 : POKE7936-B, 67 : POKE7937-B, 7 
3: POKE7957-B, 74: POKE7958-B, 70: POKE7959-B, 75 

48 FORII=38655-BT038657-B: POKEII, 2: POKELI+22,2 :NE 
XT 

58 GETAS : IFAS=""THEN5@ 

51 IFAS=NS$(A,@)THEN54 

52 POKE36877,128:FORD=1TO6@ : NEXT : POKE36877 , @:GOTO5 
g 

54 POKES, VAL(NS$(A,1)):POKE7962-B,ASC(NS$(A,@) )-64:P 
OKE38682-B,@ 

56 FORD=1T03980 : NEXT: ONA+1GOSUB66 , 68, 66,68, 66,68, 66 
, 68,66 

58 IFA/2=INT(A/2)THENPOKE7962-B, 119:GOTO6@ 

59 POKE7962-B, 32 

60 POKES, 06: RETURN 

*66 POKE7935-B, 32:POKE7936-B, 32: POKE/937=-B, 32:POKE7 
957-B, 119: POKE7958-B, 119: POKE7959-B, 119: RETURN 

*68 POKE7935—B, 119: POKE7936-B, 119: POKE7937-B,119:PO 
KE7957-B, 32: POKE7958-B, 32: POKE7959-B, 32: RETURN 

70 PRINT"{CLR}{BLU}THERE ARE FIVE LINES{2 SPACES}0 
N THE BASS STAFF. {DOWN}" 

71 PRINT"THE NAMES OF THE NOTESON THE LINES ARE:": 
PRINT" {2 DOWN} {BLK} **** RRR AARKKEREEE [RED IA 
{ BLK } ** { DOWN } " 

72 PRINTV Fea kkekkekekeee [ RED) E{ BLK} ******([2 DOWN} 
ee eKKKEEEER RED] DL BLK} * ee eee RH KH LD DOWN } 
#EEXKEXTREDIB[ BLK} *#** 8k RRR ARERR" 


*73 PRINT" { DOWN} ***{REDIG{BLK} *****E KERR RRR RERE IDC 
WN}":GOSUB95:PRINT"TO HELP YOU REMEMBER{2 SPACE 
S}THE NOTES, THINK OF" 

74 PRINT"THIS PHRASE:":PRINT"{3 DOWN} {BLK} ******** 
****** {REDJA{BLU}NIMALS {BLK}*(2 DOWN} ******¥ eee 
{RED} F{BLU} I GHT{BLK} *******" 
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a OOOOonanoeeeeeh»»eS ae 


*75 PRINT" {DOWN} ******* {RED} D{BLU}]OGS{BLK} ********* 
ee {2 DOWN} *****{REDIB {BLU} IG{ BLK] #****kRRRRR RES 
{2 DOWN}*{RED}G{ BLU} REAT{ BLK} **** EER ERRRER ERS 

76 PRINT" { DOWN}":GOSUB95 

77 FORI=1T019:A=(INT(RND(1)*5) )*2:GOSUB40:NEXT: RET 
URN 

80 FORI=1T0O19:A=INT( RND(1)*9) sGOSUB48 : NEXT : RETURN 

98 DATAG,175,A,183,B,191,C,195,D, 201,E, 207,F, 289,G 
,215,A,219 

95 PRINT" {GRN}PRESS RETURN"; 

96 GETAS : IFAS=""THEN96 

97 IFASC(AS) <>13THEN96 

98 PRINT" {CLR} {BLU}":RETURN 

99 PRINT" {CLR} {BLU}":END 


Program 5-8. Bass Clef 
TRS-80 Color Computer; MC-10 

GOTO18 

PRINT@464, "PRESS <ENTER>"; 

GS=INKEYS:IF GS=""THEN 3 

IFASC(GS$)<>13THEN3 

CLS: RETURN 

HS="G"s: RETURN 

HS="A": RETURN 

HS="B": RETURN 

HS="C": RETURN 

18 H$="D":RETURN 

ll HS="E": RETURN 

12 HS="F": RETURN 

13 CLS:PRINTB11$+B$ :PRINT@32, BL1$+BS :PRINT@64,B11$ 
+BS : PRINT@96,A3$+A1S+CHRS (145 )+A3$+CHRS (146 )+CH 
R$ (145 )+A1$S+AS 

14 PRINT@128, B3S+CHRS (144 )+B3$+B2S+CHRS (155 )+CHRS ( 
149)+BL$ :PRINT@169, A3$+A3S+A3S+A1S+CHRS (145)+Al 
S+AS 

15 PRINT@192, B6$+B2$+B2S+CHRS (149 )+BL$:PRINT@224,A 
3S+A3$S+A3$+CHRS (146 )+A3S+AS : PRINT@256, B6S+B2$+C 
HRS$ (158)+CHRS (151 )+B1$+B$ 

16 PRINT@288,A3S$S+A3S+A1S+CHRS (146 )+A3S+AS : PRINT@32 
6, B6S+CHRS (155 )+CHRS (151 )+B3$+BS$ 

17 PRINT@352,A3$S+A3S+A3S+A2S+AS : PRINT@384,B11S+BS: 
PRINT@416,B11S+BS$: RETURN 

18 CLS:PRINT"{5 SPACES}** BASS CLEF NOTES **":AS=" 
"sBS=""sA1S=CHRS (147 ):B1S=CHRS$ (159) 

19 FOR I=1 TO 21:AS=AS+A1$:BS=BS+Bl1$:NEXT I 

26 B2S=B1$+B1$:B3S=B2$+B1$ : B6$=B3$+B3$ :A2S=A1S+A1$ 
:A3S=A2$S+A1$ 

21 B1l1$=B6$+B3$+B2S:BLS=B2$+CHRS (151 )+B6$+B6$S+B6$ 

22 PRINT@97, "THE PHRASES TO HELP LEARN THE {3 SPACE 
S}BASS CLEF NOTES BOTH":PRINT" CONCERN ANIMALS. " 
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23 PRINT@225, “REMEMBER, THE FIRST LETTER OF 
{3 SPACES}EACH WORD IS THE NAME OF NOTE." 

24 PRINT@321, "FOR THE SPACES, THINK--":PRINT" ALL 
COWS EAT GRASS.":PRINT" -{3 SPACES}-{4 SPACES}- 
{3 SPACES }-":GOSUB 2 

25 GOSUB 13 

26 PRINT@392, "ALL COWS EAT GRASS": :PRINT@335, "ALL" 
¢:PRINT@274, "COWS": :PRINT@214, "EAT"; : PRINT@153, 
"GRASS": :GOSUB2 

27 PRINT @33,"THE PHRASE TO LEARN FOR THE 
{5 SPACES}NOTES ON THE LINES OF THE{7 SPACES}]BA 
SS CLEF IS:" 

28 PRINT @193, "GREAT BIG DOGS FIGHT ANIMALS. 
{3 SPACFES}-{5 SPACES}-{3 SPACES}-{4 SPACES}- 
{5 SPACES }-" 

29 PRINT @353, "REMEMBER TO START THE PHRASE 
{4 SPACES]ON THE BOTTOM LINE OF THE CLEF. ":GOSU 
B 2 

38 GOSUB13:PRINT@418, "GREAT BIG DOGS FIGHT ANIMALS 

31 PRINT @366, "GREAT"::PRINT @305,"BIG"::PRINT @24 
3,"DOGS";:PRINT @182, "FIGHT";:PRINT @121, "ANIMA 
LS"::GOSUB 2 

32 FOR I=1 TO 14 

33 GOSUB13:PRINT@458, "NAME THE NOTE" 

34 N=RND(9):IFN=Nl THEN34 

35 Y1=N*2+2:N1=N: FORX=41T046: FORY=Y1 TOY1+3:SET(X, 
Y,4):NEXT Y,X 

36 GS=INKEYS:IF GS="" THEN 36 

37 ON N GOSUB 7,6,12,11,19,9,8,7,6 

38 IFGS=HSTHEN4S 

39 SOUND125,1:SOUND89, 1:GOTO36 

48 PRINT@ (N+1 ) *32+54,GS$; :SOUND88, 2: SOUND125, 2: SOUN 


D147, 2:SOUND176,4 

41 NEXT I 

42 CLS:PRINT@179, "GOOD WORK!":PRINT@3298, "TRY AGAIN 
2? (Y/N)" 


43 ES=INKEYS:IF ES="Y" THEN 32 
44 IF E$<>"N" THEN 43 
45 CLS:END 


Program 5-9. Bass Clef 
TI-99/4A 


119 DIM N(9,2) 

126 CALL CLEAR 

136 PRINT TAB(7):;"** BASS CLEF **"sess:2s22232 
148 FOR I=l1 TO 9 

158 READ N(I,1),N(I,2) 

166 NEXT I 
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178 


189 
190 
280 
210 
220 


230 


240 


258 
260 
276 


280 
290 


360 
319 
328 
330 


348 
356 


369 


370 
389 
398 
400 
410 
426 
436 
446 
456 
466 
478 
489 
496 
589 
519 
520 
530 
549 
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DATA 65,228,71,196,78,175,69,165,68,147,67,131 
,66,123,65,118,71,119 

FOR I=96 TO 114 

READ C$ 

CALL CHAR(I,CS$) 

NEXT I 

DATA OOOODOFF , SOOOOOFFOF1G608, BOOOOOFFFF , GOBBD 
SFF89769CH3 , 919204181928204 , 8949292019980804,4 
9583CFF3C18 

DATA 940292FFO1919191 ,9191929294949498, D8G8190F 
F2040898 , 81919204908, QOBELFIFIFOE 

DATA SOBOOGSOOOSF30C, DOOOOOSOSHOFBIGCH3 , 91920204 
94940201, 7808898304940094, 894949202929498, 889681 
OOF ,O01Z8608F 

LSan sss esssssessseessesseca 

GOSUB 760 

PRINT :"LEARN THIS PHRASE FOR THE":: "NOTES ON 
SPACES, AC EG."s:3: 

GOSUB 860 

DATA 13,38,15,65,15,76,15, 76,15, 32,13,67,13,79 
,13,87,13,83,13,32,11,69,11,65,11,84,11, 32 
DATA 9,71,9,82,9,65,9,83,9,83 

GOSUB 869 

GOSUB 769 

PRINT :"THIS PHRASE HELPS YOU KNOW":: "THE LINE 
NOTES, GBDFA.":3: 

GOSUB 8060 

DATA 8,32,16,71,16,82,16,69,16,65,16,84,14,66, 
14,73,14,71,12,68,12,79,12,71,12,83,18,70,19,73 
DATA 19,71,18,72,10,84,8,65,8, 78,8, 73,8,77,8,6 
5,8,76,8,83,8, 32 

GOSUB 8608 

GOSUB 7692 


FOR T=1 TO 108 

RANDOMIZE 
=INT(9*RND+1 ) 

J=6+X 

CALL HCHAR(J,20,108) 

CALL HCHAR(J,21,1989) 

CALL HCHAR(J+1,19,1198) 

CALL HCHAR(J+1,22,112) 

CALL HCHAR(J+2,20,113) 

CALL HCHAR(J+2,21,114) 

CALL HCHAR(J+1,21,111) 

CALL SOUND(158,1397,4) 

CALL KEY(@,K,S) 

IF S<l THEN 529 

IF K=N(X,1)THEN 578 


Sound 


558 CALL SOUND(208,-5,4) 

568 GOTO 526 

578 CALL HCHAR(J+1,21,N(X,1)) 

580 IF X<9 THEN 612 

598 CALL SOUND (588,1475,30,1475,308,1475,38,-4,1) 

688 GOTO 628 

618 CALL SOUND(588,N(X,2),2) 

628 CALL SOUND(1,N(X,2), 30) 

630 IF X/2=INT(X/2)THEN 686 

649 CALL HCHAR(J,20,32,2) 

658 CALL HCHAR(J+1,19,96,4) 

669 CALL HCHAR(J+2,28,32,2) 

678 GOTO 710 

688 CALL HCHAR(J,208,96,2) 

698 CALL HCHAR(J+1,19,32,4) 

708 CALL HCHAR(J+2, 20,96, 2) 

718 NEXT T 

728 PRINT :"GOOD! TRY AGAIN? (Y/N)" 

738 CALL KEY(@,K,S) 

749 IF K=89 THEN 380 

758 IF K=78 THEN 988 ELSE 739 

768 CALL CLEAR ' 

776 PRINT TAB(10):"BASS CLEF"::: 

780 PRINT ::"*‘abc’"&L$:" d{3 SPACES}e k":""f 
&L$:"{5 SPACES}h k":"*****i"6L$:"{4 SPACES}h": 
HS SS S5*"EnSe"{3 SPACES} 5": "******"ELSse3 

798 RETURN 

896 READ C,J 

819 FOR I=C TO J 

820 READ K,G 

830 CALL HCHAR(K,I,G) 

849 NEXT I 

858 RETURN 

860 PRINT TAB(16);"PRESS <ENTER>?"; 

870 CALL KEY(@,K,S) 

880 IF K<>?13 THEN 878 

899 RETURN 

988 CALL CLEAR 

919 END 


aass ee 
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Chapter 6 


Math Competency 


The six programs in this chapter generate story or word problems 
for mathematics, much like those found on standardized math 
tests given in high school. Each program concentrates on one 
type of word problem, presenting a problem and waiting for a 
response from you. “Buying Items,” for example, displays a list of 
five items, along with their prices. Questions are then presented, 
such as asking you to total the items’ costs. 

Illustrating how word or story problems are formed, these 
programs could be used by anyone interested in mathematics, 
from those in the third grade to high school students. 

If you enter an incorrect answer while using these programs, 
you'll see a reminder of how to get to the right answer, and the 
problem will repeat. If you answer correctly, you'll always have a 
choice of continuing with another problem or quitting the problem. 


Buying Items 

Computers: VIC-20; TRS-80 Color Computer; MC- 10; TRS-80 Model |; 
T1-99/4 

“Buying Items” gives a list of five items along with their prices. 

The first question asks you to total all five items. The second 

question asks which two items could be purchased, given a cer- 

tain amount of money. This question is in multiple-choice form. 

There are three different categories for price lists. The number 
A is randomly chosen as 1, 2, or 3. School supplies is number 1, a 
toy store is number 2, and a grocery store is number 3. The items 
I$ are read in as data in an array I$(A,C), where I$(2,4) would 
mean the name of an item in category 2 (toys) and the fourth 
item listed. 

The data for each item includes a minimum price I(A,C,1) 
and a maximum price I(A,C,2). For the actual price list for the 
problem, the price P is a random number from the minimum to 
the maximum. A subroutine is used to convert the price calcu- 
lated as a number of cents to a dollar value for printing in the 
problem. The price P is a whole number of cents. 

A random number F is chosen to be 1 or 2 so that the word- 
ing of the problem will vary. If F is 1 the question is, “How much 
will it cost to buy all the items on the list?” If F is 2, the question 
has a person's name. Six names are read in as data, chosen at 
random. If the name number N is greater than 3, the person is 
a boy; otherwise, a girl; and the printed question uses the appro- 
priate pronouns. 
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M is a random amount of money based on a range from the 
lowest possible price of the two least expensive items in the list to 
a maximum price that would still be less than any other two items. 
The correct answer for the multiple-choice question is the phrase 
H(A), and it is placed in a random position R, one of the four 
choices. The incorrect choices use one item from the first three in 
the list, and one item from the last two in the list. The computer 
makes sure the four phrases are different. 

Here’s how the program works on the VIC: 


Line 


60 
62 
64-81 
82-87 
88 
89-90 
92-96 


100-102 
120-122 


200 
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Function 

PRINT title screen, DIMension variables, READ six 
names from data, and turn on volume for sound. 
READ from DATA items and minimum and max- 
imum prices, initialize S for sound statements, and 
branch past subroutines. 

Wait for user to press RETURN. 

Delay loop for sound. 

Convert cost in cents to dollars. 

Play music for correct answer. 

DIMension H and S for multiple-choice answers and 
define H$ answers. 

Wait for user to press RETURN. 

Randomly choose category and initialize total TP =0. 
PRINT problem, randomly choosing price for each 
item. 

PRINT one of two forms of the question. 

Receive answer. 

If answer is incorrect, give the right answer with an 
explanation. 

If answer is correct, play sound. 

Clear lower part of screen. 

PRINT second question. 

PRINT multiple-choice answers. 

Receive answer. 

If answer is correct, play sound. 

PRINT option to try again and branch appropriately. 
If answer is incorrect, PRINT explanation. 

DATA statements. 

Clear screen and END. 
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Program 6-1. Buying Items 

VIC-20 
(In this program, make sure to use abbreviations for all BASIC keywords in the lines 
marked with an asterisk (*). If you don't, the program will not run correctly. Refer to 
Appendix C, “BASIC Keyword Abbreviations,” for the proper abbreviations.) 


1 PRINT" {CLR}{2 DOWN}{BLU}{3 SPACES}MATH COMPETENC 
Y":PRINT"{2 DOWN}{4 SPACES}BUYING ITEMS{8 DOWN}" 

2 DIMIS$S(3,5),1(3,5,2),N$(6),J3(5):FORC=1TO6: READNS ( 
C) :NEXT: POKE36878, 15 

3 FORA=1T03:FORC=1T05:READIS(A,C),1(A,C,1),1(A,C, 2 
) sNEXTC,A:S=36876:GOTO25 

4 PRINT" {GRN}PRESS RETURN"; 

5 GETAS : IFAS=""THENS 

6 IFASC(AS)<>13THENS 

7 RETURN 

9 FORDE=1T0100:NEXT: RETURN 

19 PS=STRS(P):IFLEN( PS )=2THENPS="6"+RIGHTS (PS, 1) 

11 PRS$=RIGHTS(PS,2):PLS=LEFTS(PS,LEN(PS)-2) :IFLEN( 
PLS ) <2THENPLS="{SHIFT=-SPACE} " 

13 PS="$"+PLS+"."+PRS : RETURN 

16 POKES, 195:GOSUB9: POKES, 287: GOSUB9: POKES, 215:GO8s 
UB9Y 

18 POKES, 225:GOSUB9:GOSUB9: POKES , 9: RETURN 

28 DIMHS(3),S$(4):HS$(1)="PENCIL AND ERASER" 

25 H$(2)="BALL AND TRUCK":H$(3)="CANDY AND FRUIT" 

28 GOSUB4 

30 A=INT(RND(@)*3+1):TP=O 

32 PRINT"{CLR}{BLU}GIVEN THIS PRICE LIST: {BLK} 

34 FORC=1T05:D=1(A,C,2)-I1(A,C,1):P=I(A,C,1)+INT (RN 
D(@)*D+1) :GOSUB1@: TP=TP+P 

36 PRINTTAB(4);1IS$(A,C):TAB(13);P$:NEXT 

38 F=INT(RND(@)*2+1) 

39 IFF=1THENPRINT" {DOWN}{BLU}HOW MUCH WILL IT COST 

TO BUY ALL THE ITEMS{2 SPACES}ON THE LIST?":GO 
T044 

48 N=INT(RND(@)*6+1):PRINT" {DOWN} {BLU} ":NS(N);" WA 
NTS TO BUY":PRINT"EVERYTHING ON THE" 

41 PRINT"LIST.{2 SPACES}WHAT WOULD THE TOTAL COST 
{SPACE }BE?" 

44 PRINT" {DOWN} {RED}$"::INPUT X 

46 IFABS(X-TP/100)<.@01THEN6O 

47 POKES, 159:GOSUB9: POKES, 135:GOSUB9: POKES, @ 

*48 PRINT" {PUR} {DOWN}ADD ALL FIVE NUMBERS. THE TOTA 
L IS ";:P=TP:GOSUB1O:PRINTPS : PRINT" {DOWN } ":GOSU 
B4:GOTO39 

68 GOSUB16 

62 FORD=7834T08185 : POKED, 32:NEXT 

64 PRINT"{6 UP}{BLU}":IFF=1THENPRINT"IF YOU COULD 
{SPACE }ONLY" :GOTO7@ 
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65 PRINT"{UP}IF ":NS(N):" COULD ONLY" 
76 IFPA=]1THENM=INT(RND(1)*5)+25:GOTO76 
72 IFA=2THENM=INT(RND(1)*36)+239:GOTO76 
74 M=INT(RND(1)*18)+190 
76 P=M:GOSUB1@:IFF=1THENPRINT"{2 UP}SPEND ";P$:GOT 
078 
77 PRINT"SPEND ";PS$ 
78 PRINT"WHICH OF THESE PAIRS{2 SPACES}OF ITEMS ON 
THE LIST" 
79 IFF=1THENPRINT"COULD YOU BUY?" :GOTO82 
80 IFN<4THENPRINT"COULD SHE BUY?":GOTO82 
81 PRINT"COULD HE BUY?" 


R=INT (RND(1)*4)41:PRINT" {DOWN} ":FORV=1T04:IFV=R 

THENSS (V)=HS (A) :GOTO87 

X=INT (RND(1)*2)+4:SS(V)=IS(A,X) :X=INT(RND(1)*3) 

+1:SS(V)=SS(V)+" AND "+I$(A,X) 

IFV=1THEN87 

FORV1=1TOV-1:IFSS$(V1)=SS(V)THEN83 

NEXTV1 

PRINTCHRS (64+V);" "+S$(V):NEXTV: PRINT" {RED}"> 

GETAS : IFAS="""THEN88 

PRINTAS : IFASC(AS ) <>64+RTHEN1OD 

GOSUB16 

PRINT" {PUR} {DOWN}TRY AGAIN?(Y/N) "3 

GETAS : IFAS="""THEN93 

IFAS="Y"THEN3@ 

IFAS="N"THEN20@0 

GOTO093 
POKES , 159: GOSUB9: POKES, 135:GOSUB9: POKES, 9 
PRINT" {PUR}THE TOTAL OF THE TWO{2 SPACES} ITEMS 
MUST BE LESS{4 SPACES}THAN ";P$:GOTO92 
DATANANCY , CINDY, CHERY, DAVID, RANDY, LANCE, PENCIL 
,8,15,ERASER, 2,19 
DATA NOTEBOOK, 35,99, RULER, 29 
DATA49, PAPER, 59,908, DOLL, 249,599, BALL, 49, 89, TRU 
CK, 100, 159,GAME, 279, 580 ,MODEL, 308, 780 
DATACANDY, 28,58,MEAT,123,425, FRUIT, 24,58,CHIPS 
,100,257,BREAD, 109,179 
PRINT" {CLR} (BLU}":END 


The program looks and works differently on the Color Com- 


puter and MC-10: 
Line Function 


1 


2 
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DIMension variables, READ from DATA the items 
and minimum and maximum prices. 

Define H$ for multiple-choice answers and branch 
past subroutines. 
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3-6 Wait for user to press ENTER. 

7-10 Convert cost in cents to dollars. 

11-12 Clear screen, initialize total price TP, randomly 
choose category, and PRINT list of items with ran- 
dom prices. 

13 Ask question, receive answer and compare input to 
correct answer. 

14 If input answer was incorrect, show how to get cor- 
rect answer and return for another problem. 

15 If answer is correct, PRINT message and clear lower 
part of screen. 

16-18 Randomly choose cost. 

19-24 PRINT multiple-choice question. 


25 Wait for user to press a key for answer. 
26-27 If answer is incorrect, give correct answer. 
28 If answer is correct, PRINT message. 


29-31 PRINT option to try again and branch appropriately. 
32-33 DATA statements. 
34 Clear screen and END. 


Program 6-2. Buying Items 
TRS-80 Color Computer; MC- 10; TRS-80 Model | (with 
changes) 


1 DIMI$(3,5),1(3,5,2),3(5),H$(3),S$(4):FORA=1T03:F 
ORC=1T05:READIS(A,C),1(A,C,1),I1(A,C,2):NEXTC,A 
2 H$(1)="PENCIL AND ERASER":H$(2)="BALL AND TRUCK" 
2H$(3)="CANDY AND FRUIT":GOTO11 
3 PRINT@495,"PRESS <ENTER>"?: 
4 AS=INKEYS: IFAS=""THEN4 
5 IF ASC(AS$)<>13 THEN 4 
6 RETURN 
7 PS=STRS(P) 
8 IFLEN(PS)=2THENPS=" @"+RIGHTS (P$,1) 
9 PRS=RIGHTS (P$,2):PLS=LEFTS(P$, LEN(P$)-2):IFLEN(P 
L$ )<2THENPLS="" "+PLS$ 
18 PS="S$"+PL$+", "+PRS:RETURN 
11 CLS:TP=8:A=RND(3):PRINT"GIVEN THIS PRICE LIST:" 
12 FORC=1T05:D=I1(A,C,2)-1(A,C,1):P=I(A,C,1)+RND(D) 
:GOSUB7 : TP=TP+P : PRINTTAB(4);I1$S(A,C);:TAB(13);PS$: 
NEXT: PRINT 
13 PRINT"HOW MUCH WILL IT COST TO BUY{4 SPACES }JALL 
THE ITEMS ON THE LIST?":PRINT"S$"; s INPUTX: IFABS 
(X-TP/190)<.@G81THEN15 
14 PRINT: PRINT"ADD ALL FIVE NUMBERS.":PRINT"THE TO 
TAL IS ";:P=TP:GOSUB7:PRINTPS :GOSUB3:GOTO11 
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34 


PRINT: PRINT"CORRECT ! ": FORC=1TO190@:NEXT: FORC=1T0O 
8: PRINT@192+32*Cc," "sNEXT 
IFA=1THENM=RND (5 )+25:GOTO19 
IFA=2THENM=RND (36 )+239:GOTO19 

M=RND (18 )+190 

P=M:GOSUB7: PRINT@224, "IF YOU COULD ONLY SPEND " 
?>PS$:PRINT"WHICH OF THESE PAIRS OF ITEMS 

{3 SPACES]ON THE LIST COULD YOU BUY?" 

R=RND (4): FORV=1T04: IFV=R THENSS (V)=HS (A) :GOTO24 
X=RND (2)+3:S$(V)=1$S(A,X):X=RND(3):SS(V)=S$(V)+" 
AND "+I$(A,X): IFV=1THEN24 
FORV1=1TOV-1: IFSS (V1 )=SS (V )THEN21 

NEXTV1 

PRINTTAB(3);CHRS(64+V):" "4+SS(V):NEXTV 
AS=INKEYS: LFAS=""THEN25 

PRINTAS: IFASC(AS )=64+R THEN28 

PRINT"THE TOTAL OF THE TWO ITEMS MUST BE LESS T 
HAN ":PS;"-—":CHRS (64+R) :GOTO29 

PRINT"CORRECT! " 

PRINT@480, "TRY AGAIN? (Y/N)"; 

AS=INKEYS: IFAS="Y"THEN11 

IFAS <> "N"THEN3@ 

DATAPENCIL, 8,15, ERASER, 2,18,NOTEBOOK, 35,99, RULE 
R, 29,49, PAPER, 59,98, DOLL, 249,599 

DATA BALL, 49,89, TRUCK, 194,158,GAME,278,588,MODE 
L, 308,788, CANDY, 20,50,MEAT,123,425, FRUIT, 24,50, 
CHIPS, 198,257, BREAD, 108,179 

CLS:END 


For the TRS-80 Model I computer, make the following 


changes in the above listing: 


Insert CLEAR 100 at the beginning of line 1. 

Change line 3 to PRINT: PRINT “PRESS <ENTER>"; 
In line 15 change @192 + 32*C to @320 + 64*C 

In line 19 change @224 to @448 

In line 29 delete @480. 


Buying Items on the TI-99/4A works this way: 


Line Function 

100-150 Clear screen; PRINT title screen; define characters 
and colors. 

160 DIMension variables. 


170-290 READ from DATA six names N$§ and items I$ with 


minimum and maximum prices I. 


300-320 Define H$ for multiple-choice answers. 


330 
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Branch past subroutines. 
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340-370 Wait for ENTER key to be pressed. 

380-400 Play music for incorrect answer. 

410-450 Play music for correct answer. 

460-540 Convert cost in cents to dollars. 

550-570 Randomly choose one of three categories and ini- 
tialize total cost TP =0. 

580-660 PRINT problem, randomly choosing price for each 
item. 

670-720 Draw a colored box around list. 

730-820 PRINT one of two forms of the question. 

830 Receive answer. 

840-910 If answer is incorrect, give the right answer with 
an explanation and return for another problem. 

920-930 If answer is correct, play sound then clear lower 
part of screen. 

940-1150 PRINT second question. 

1160-1300 PRINT multiple-choice answers. 

1310-1340 Receive answer. 

1350-1360 — If answer is correct, play sound. 

1370-1400 PRINT option to try again and branch appropriately. 

1410-1440 _‘If answer is incorrect, play different sound effect 
and show correct answer. 

1450-1460 Clear screen and END. 

Program 6-3. Buying Items 

TI-99/4A 

188 CALL CLEAR 

116 PRINT TAB(6); "MATH COMPETENCY" 

120 CALL CHAR(136, "O88402FF026408" ) 

130 PRINT :::TAB(7);"BUYING ITEMS" 

148 CALL COLOR(14,9,16) 

158 PRINT sesesiee3e3 

168 DIM 1$(3,5),1(3,5,2),N$(6),5(5),HS$(3),S$(4) 

178 FOR C=1 TO 6 

189 READ N$(C) 

198 NEXT C 

268 FOR A=1 TO 3 

218 FOR C=1 TO 5 

228 RFAD I$(A,C),1(A,C,1),1(A,C,2) 

238 NEXT C 

248 NEXT A 

258 DATA ANGIE,CINDY,CHERY, RICKY, BOBBY, RANDY, PENCI 

L,8,15 
268 DATA ERASER, 2,10,NOTEBOOK, 35,99, RULER, 29, 49 
278 DATA PAPER,59,90,DOLL, 249,599, BALL, 49,89, TRUCK 


, 108,158 
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288 DATA GAME, 279,588,MODEL, 300,788, CANDY, 20,50 

290 DATA MEAT,123,425,FRUIT,24,58,CHIPS,100,257,BR 
EAD, 106,179 

360 H$(1)="PENCIL AND ERASER" 

310 HS(2)="BALL AND TRUCK" 

320 H$(3)="CANDY AND FRUIT" 

338 GOTO 55@ 

348 PRINT TAB(15);"PRESS <ENTER>"; 

358 CALL KEY(@,K,S) 

360 IF K<>13 THEN 350 

378 RETURN 

388 CALL SOUND(199,330,2) 

398 CALL SOUND(1598,262,2) 

4004 RETURN 

418 CALL SOUND(1990,262,2) 

428 CALL SOUND(108,330,2) 

438 CALL SOUND(190,392,2) 

448 CALL SOUND(2@00,523,2) 

458 RETURN 

460 PS=STRS(P) 

478 IF LEN(PS$)>1l THEN 499 

489 PS="9"EPs 

499 IF LEN(PS)>2 THEN 510 

500 PS=" "EPs 

518 PRS=SEGS (PS, LEN(PS$)-1,2) 

520 PLS=SEGS (PS$,1,LEN(PS$)-2) 

530 PS="S$"EPLSE&"."&PRS 

548 RETURN 

550 RANDOMIZE 

568 A=INT(RND*3+1 ) 

578 TP=0 

588 CALL CLEAR 

598 PRINT "GIVEN THIS PRICE LIST:":: 

688 FOR C=1 TO 5 

619 D=I1(A,C,2)-I(A,C,1) 

620 P=I(A,C,1)+INT(RND*D+1 ) 

638 GOSUB 460 

648 TP=TP+P 

658 PRINT TAB(6);:IS$(A,C);TAB(15);:P$ 

660 NEXT C 

678 R=INT(RND*13+4) 

688 CALL COLOR(13,R,R) 

698 CALL HCHAR(18,6,128,18) 

70@ CALL VCHAR(19,6,128,5) 

718 CALL VCHAR(19,23,128,5) 

728 CALL HCHAR(24,6,128,18) 

738 F=INT(RND*2+1 ) 

748 IF F=2 THEN 790 

758 PRINT ::"HOW MUCH WILL IT COST" 
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PRINT "TO BUY ALL THE ITEMS" 

PRINT “ON THE LIST?" 

GOTO 830 

N=INT (RND*6+41 ) 

PRINT ::NS(N);" WANTS TO BUY" 

PRINT "EVERYTHING ON THE LIST." 
PRINT "WHAT WILL THE TOTAL COST BE?" 
INPUT "S":X 

IF ABS(X-TP/100)<.901 THEN 920 

GOSUB 3898 

PRINT :"ADD ALL FIVE NUMBERS." 

P=TP 
GOSUB 
PRINT "THE TOTAL IS 
GOSUB 348 

GOTO 558 

GOSUB 4190 

CALL HCHAR(28,1,32,128) 


460 
"sPSses 


IF F=2 THEN 9790 

PRINT "IF YOU COULD ONLY SPEND" 

GOTO 980 

PRINT "IF “;NS(N)3" COULD ONLY SPEND" 


IF A<>l THEN 1010 
M=INT (RND*5+25 ) 

GOTO 1858 

IF A<>2 THEN 1840 

M=INT (RND* 364239 ) 

GOTO 1050 

M=INT (RND*18+19@ ) 

P=M 

GOSUB 468 

PRINT PS$;:", WHICH OF THESE PAIRS" 
PRINT "OF ITEMS COULD "; 
IF F<>l THEN 11290 


PRINT "YOU BUY?":: 
GOTO 1169 
IF N>3 THEN 1158 


PRINT "SHE BUY?":: 
GOTO 1160 

PRINT "HE BUY?":: 
R=INT (RND*4+1 ) 
FOR V=l TO 4 

IF V=R THEN 12880 
X=INT (RND*2+4 ) 
S$(V)=I1$ (A,X) 
X=INT (RND*3+1 ) 
S$(V)=SS(V)&" AND "&IS(A,X) 
IF V=l THEN 1290 
FOR Vl=1 TO V-1 
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1250 
1260 
1278 
1286 
1290 
1390 
1319 
1328 
1330 
1340 
1350 
1368 
1370 
1380 
1398 
1400 
1419 
1420 
1439 


1446 
1459 
1469 
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IF S$(V1)=SS(V)THEN 1196 
NEXT Vl 

GOTO 1290 

SS$(V)=HS$ (A) 

PRINT TAB(3);CHRS(64+V);" "“&SS(V) 
NEXT V 

CALL SOUND(158,1397,2) 

CALL KEY(@,K,S) 

IF (K<65)+(K>68)THEN 13290 
CALL HCHAR(K-45,4,42) 

IF K<>64+R THEN 1419 

GOSUB 419 

PRINT :"TRY AGAIN? (Y/N)"? 
CALL KEY(@,K,S) 

IF K=89 THEN 550 

IF K=78 THEN 145@ ELSE 1380 
GOSUB 382 

CALL HCHAR(19+R,3,136) 
PRINT :"THE TOTAL OF THE TYIO ITEMS MUST BE L 
ESS THAN ";PS$ 

GOTO 1379 

CALL CLEAR 

END 


Sales Tax 
Computers: VIC-20; TRS-80 Color Computer; MC- 10; TRS-80 Model 1; 


TI-99/4A 


This word problem program shows you how to calculate sales 
tax on purchased items. One of three categories is chosen ran- 
domly, and then four items are listed with random prices. Sales 
tax is selected randomly, from 2 to 5 percent. You enter the total 
cost of the items, including sales tax as your answer. 

Here’s how the three versions of the program work: 


Line Function 

110-200 |= READ from DATA the title of store T$, item P$(LJ), 
and base price P(I,J). 

210 Clear screen. 

220 Initialize total cost A. 

230-280 PRINT problem with random tax T. 

290-310 PRINT random title or kind of store. 

320-370 PRINT four items with random prices. 

380-410 Draw separator line and ask for total cost. 

420-430 Calculate total, plus tax. If input value is correct, 
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shift to appropriate line. 
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440-570 __If input value is incorrect, show how to get right 
answer and return for another problem. 

580-650 ‘If answer is correct, present option to try again and 
branch appropriately. 

660-690 Convert number to dollars and cents for printing. 

700-710 Clear screen and END. 


Program 6-4. Sales Tax 
VIC-20 


118 FORI=1T04 

12@ READTS (1) 

138 FORJ=1T04 

148 READPS(I,J),P(I,J) 

158 NEXTJ 

168 NEXTI 

178 DATAHARDWARE, HAMMER, 1580, PLIERS, 390, SAW, 600,NA 
ILS, 180 

186 DATACLOTHES, BELT, 4900, TIE, 500, SHIRT,600, PANTS, 2 
G20 

199 DATATOYS, BALL, 100,CAR, 208, GAME, 580, DOLL, 606 

266 DATASUPPLIES, PAPER, 406, CLIPS, 198, PENCILS, 199,E 
NVELOPES, 200 

2169 PRINT" {CLR}" 

2269 A=6 

230 PRINT"SALES TAX ON THE" 

248 T=INT(4*RND(6)+2) 

250 PRINT"FOLLOWING ITEMS IS":PRINTT;"PER CENT, OR 

"2S .O"+RIGHTS (STRS(T),1) 

268 PRINT"FOR EACH DOLLAR SPENT." 

276 PRINT"WHAT IS THE TOTAL":PRINT"COST?" 

288 PRINT 

298 I=INT(4*RND(G)+1) 

306 PRINTTAB(5);TS(I) 

318 PRINT 

320 FORJ=1T04 

330 C=P(1I,J)+25*( INT(4*RND(@) )) 

348 GOSUB669 

350 PRINTPS(1,J),C$ 

366 A=A+C 

378 NEXTJ 

380 PRINT"F#FFS ss FFF FFF HF FH FFF" 

390 PRINT 

499 INPUT "TOTAL COST = $"3:B 

418 PRINT 

420 TX=1+T/108 

430 TA=INT( ((A/100)*TX+.005)*108)/190 

440 IF ABS(B-TA)<.91 THEN 5892 

450 C=A 
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469 
478 
480 
49@ 
588 
519 
528 
538 
546 
550 
568 
578 
588 
596 
600 
619 
628 
639 
640 
650 
660 
670 
680 
699 
768 
719 


GOSUB6698 

PRINT"ADD COSTS FOR TOTAL." 
PRINT"PRICE OF ITEMS = ":PRINTCS 
PRINT"MULTIPLY BY ";T/108;" FOR" 


PRINT"TAX, THEN ADD." 
PRINT 

C=TA* 190 

GOSUB660 

PRINT"TOTAL COST ={SHIFT-SPACE}";CS$ 
PRINT 

INPUT "PRESS <RETURN>";ES 
GOTO218 

PRINT"CORRECT |!" 

PRINT 

PRINT"CHOOSE: 1 TRY AGAIN" 
PRINTTAB(8);"2 END" 

GET ES 

IF ES="1" THEN 210 

IF ES="2" THEN 709 
GOTO622 

CS=STRS(C) 

L=LEN (C$) 

CS="S"+LEFTS (C$,L-2)+". "+RIGHT$ (C$, 2) 
RETURN 

PRINT" {CLR}” 

END 


Program 6-5. Sales Tax 


105 
110 
120 
139 
149 
15¢ 
160 
17 


188 
190 


206 


TRS-80 Color Computer; MC-10; TRS-80 Model I 


DIMTS (4),P$(4,4),P(4,4) 

FOR I=l TO 4 

READ TS(I) 

FOR J=l1 TO 4 

READ PS$(I,J),P(I,J) 

NEXT J 

NEXT I 

DATA HARDWARE, HAMMER, 1500, PLIERS, 300,SAW 
, 688, SCREWDRIVER, 100 

DATA CLOTHES, BELT, 409,TIE,500,SHIRT, 600, 
PANTS , 2009 

DATA TOYS, BALL, 108,CAR, 208,GAME, 508, DOLL 
, 688 

DATA SUPPLIES, PAPER, 490,CLIPS, 199, PENCIL 
S,1908,ENVELOPES, 209 

CLS 

A= 

PRINT "SALES TAX ON THE FOLLOWING" 

T=RND (4)+2 

PRINT "ITEMS IS";T;"PER CENT, OR" 
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PRINT "S$.06"+RIGHTS(STRS(T),1)+" FOR EACH 
DOLLAR SPENT. " 

PRINT "WHAT IS THE TOTAL COST?" 

PRINT 

I=RND (4) 

PRINT TAB(8);TS(TI) 

PRINT 

FOR J=l1 TO 4 

C=P(I,J)+25*(RND(4)-1) 


GOSUB 669 

PRINT P$(I,J),cCS§ 

A=A+C 

NEXT J 

PRINT "“##t#FFHHFHFFH RFF HH RSH HR RRE" 
PRINT 

INPUT “TOTAL COST = $ ";B 

PRINT 

TX=1+T/100 

TA=INT( ( (A/108) *TX+. 005 )*190) /10B 


IF ABS(B-TA)<.91 THEN 580 

C=A 

GOSUB 668 

PRINT “ADD COSTS FOR TOTAL." 

PRINT “PRICE OF ITEMS = ";CS 

PRINT “MULTIPLY BY ";T/100;" FOR TAX," 
PRINT "THEN ADD." 


PRINT 

C=TA* 100 

GOSUB 669 

PRINT “TOTAL COST = ";CS$ 
PRINT 

INPUT "PRESS <ENTER>";E$ 
GOTO 219 

PRINT "CORRECT!" 

PRINT 

PRINT "CHOOSE: 1 TRY AGAIN" 


PRINT TAB(8);"2 END" 
ES=INKEYS 

IF ES="1" THEN 219 
IF ES="2" THEN 7990 
GOTO 620 

C$=STRS(C) 

L=LEN (C$) 
C$="$"+LEFTS$ (C$,L-2)+". "+RIGHTS (C$, 2) 
RETURN 

CLS 

END 
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Program 6-6. Sales Tax 


119 
120 
130 
148 
152 
166 
178 


180 


199 
2008 


218 
228 
2390 
235 
240 
259 
260 
270 
289 
290 
380 
3190 
320 
330 
346 
356 
360 
370 
380 
396 
400 
410 
426 
430 
446 
450 
460 
470 
480 
490 
586 
519 
520 
539 
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FOR I=l1 TO 4 
READ TS$(I) 


FOR J=l1 TO 4 

READ PS$(I,J),P(I,J) 

NEXT J 

NEXT I 

DATA HARDWARE, HAMMER, 1580, PLIERS, 300,SAW,600,N 
AILS, 108 

DATA CLOTHES, BELT, 409, TIE, 508,SHIRT,6900, PANTS, 
DATA TOYS, BALL, 1908,CAR, 208,GAME, 500, DOLL, 690 
DATA SUPPLIES, PAPER, 490,CLIPS,190, PENCILS, 10@, 
ENVELOPES, 200 

CALL CLEAR 

A=6 

PRINT “SALES TAX ON THE FOLLOWING" 

RANDOMIZE 

T=INT (4*RND+2 ) 

PRINT "ITEMS IS";T;"PER CENT, OR" 

PRINT "$.0":STRS(T);" FOR EACH DOLLAR SPENT." 
PRINT "WHAT IS THE TOTAL COST?" 

PRINT 

I=INT(4*RND+41 ) 

PRINT TAB(8);:TS(I) 

PRINT 

FOR J=l1 TO 4 

C=P (I,J )+25* (INT(4*RND) ) 

GOSUB 6608 

PRINT PS(I,J),C$ 

A=A+C 

NEXT J 

PRINT “#FFHHHs eS ES SEH EEE SHEESH 

PRINT 

INPUT "TOTAL COST = $ ":B 

PRINT 

TX=1+T/100 

TA=INT( ((A/100) *TX+. 805 )*1909) /19@ 


IF ABS(RB-TA)<.81 THEN 580 

C=A 

GOSUB 660 

PRINT "ADD COSTS FOR TOTAL." 

PRINT "PRICE OF ITEMS = ":C$ 

PRINT "MULTIPLY BY ";T/100;" FOR TAX," 
PRINT "THEN ADD." 

PRINT 

C=TA*10@ 

GOSUB 660 
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546 
558 
566 
576 
580 
590 
680 
619 
626 
630 
646 
658 
669 
676 
689 
699 
786 
718 


PRINT "TOTAL COST = ":CS$ 
PRINT 

INPUT "PRESS <ENTER>":ES 
GOTO 216 

PRINT "CORRECT!" 

PRINT 

PRINT "CHOOSE: 1 TRY AGAIN" 
PRINT TAB(9);"2 END" 

CALL KEY(@,K,S) 

IF K=49 THEN 2190 

IF K=50 THEN 780 

GOTO 620 

CS=STRS(C) 

L=LEN (CS) 
CS="$"&SEGS(CS$,1,L-2)&". "&SEGS(CS$,L=-1, 2) 
RETURN 

CALL CLEAR 

END 


Earning Money 
Computers: VIC-20; TRS-80 Color Computer; MC-10; TRS-80 Model I; 


TI-99/4A 


“Earning Money,” another math competency program, provides 
you with word problems that use addition and multiplication. 
The program presents two kinds of problems for you to look at. 
The first are relatively simple, asking you to calculate how much 
money a person makes in a week, given an hourly wage and the 
number of hours worked, for example. Once you answer correctly, 
you'll have the option of continuing with the simpler problems, 
or moving on to more difficult ones. 


This second group of word problems is more complicated, 


asking you to calculate the money earned in several weeks, for 
instance, giving you the amount earned each hour, day, or week. 
As with the first group of problems, you'll use multiplication and 
addition to arrive at your answer. If you enter an incorrect answer, 
the program will show you how the total should have been com- 
puted, and then ask if you want to continue. You'll have the choice 
of going on or quitting the program entirely. 


The names of the people in the problems are read in as N§(1) 


and T$(I), where I is a subscript from 0 to 5. The ways of earning 
money are read in as phrases J$(I). 


The wage earned is a random number from $1 to $3.25 in 


amounts divisible by 25¢. 


A name is chosen with the random number N, and the num- 


ber of hours in the first problem is a random number H. For the 
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second type of problem, the number of weeks is a random num- 
ber W from 2 to 20 weeks. The third type of problem chooses a 
random name, a random job, and a random number of weeks W 
from 2 to 9 weeks. 


The VIC version works like this: 


Line 
2-4 


100-102 


110 


128 


Function 

PRINT title screen and DIMension variables name 
NG, job J$, and name T$. 

READ from DATA the names and jobs, turn on volume 
for sound, initialize S for sound, and branch. 

Wait for RETURN key to be pressed. 

Convert price to dollar and cent value. 

Delay loop for sounds. 

Play sounds for incorrect answer. 

Play sounds for correct answer. 

Wait for RETURN key to be pressed. 

Randomly choose name, hours, and wage. 

PRINT problem and check input answer. 

Procedure for correct answer. PRINT option to try 
again or continue and then branch appropriately. 

If answer is incorrect, show how to get correct 
answer and return for another problem. 

Randomly choose variables and PRINT next prob- 
lem. Compare input answer. 

Procedure for correct answer. PRINT option to try 
again or continue and then branch appropriately. 

If answer is incorrect, show how to get correct answer 
and return for another problem of same type. 
Randomly choose variables and PRINT next problem. 
Input answer and compare with correct answer. 
Procedure for correct answer. PRINT option to try 
again and branch appropriately. 

If answer is incorrect, show how to get correct 
answer, and then return for another problem of 
same type. 

DATA statement. 

Clear screen and END. 
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Program 6-7. Earning Money 

VIC-20 
(In this program, make sure to use abbreviations for all BASIC keywords in the lines 
marked with an asterisk (*). If you don’t, the program will not run correctly. Refer to 
Appendix C, “BASIC Keyword Abbreviations,” for the proper abbreviations.) 


2 PRINT" {CLR} {BLU} {2 DOWN}{3 SPACES}MATH COMPETENC 
Y"sPRINT"{3 DOWN}{4 SPACES}EARNING MONEY{9 DOWN} 
8 


4 DIMNS(5),9$(5),T$(5) 
6 FORI=0T05:READNS(I),J$(1),TS(1) sNEXT: POKE36878,1 
5 :S=36876 :GOTO28 


18 PRINT" {DOWN} {GRN}PRESS RETURN"; 
1l GETAS:IFAS=""THEN11 
12 IFASC(AS)<>13THEN11 
13 PRINT" {CLR} {BLU}": RETURN 
14 P=109+25* INT (RND(@)*10) 
15 PS$=STRS(P):PLS=LEFTS (PS, LEN(P$)-2) :PRS=RIGHTS (P 
$,2):PS="S"+PL$+"."+PRS : RETURN 
18 FORV=1TO100 :NEXT: RETURN 
26 POKES, 159:GOSUB18: POKES, 135:GOSUB18:POKES,@:RET 
URN 
*22 POKES, 195:GOSUB18: POKES, 287 :GOSUB18: POKES, 215:G 
OSUB18: POKES, 225:GOSUB18 :GOSUB18: POKES, 8: RETURN 
28 GOSUB1® 
38 N=INT(RND(@)*6) :H=8+INT(RND(@)*11):GOSUB14 
32 PRINT" {CLR} {BLU}";NS(N);" WORKS":H; "HOURS" : IFN< 
3THENPRINT"PER WEEK.{2 SPACES]HE EARNS":GOTO36 
34 PRINT"PER WEEK.{2 SPACES}SHE EARNS" 


36: PRINTPS;" PER HOUR. "“:IFN<3THENPRINT"HOW MUCH DO 
ES HE EARN":GOTO4@ 
38 PRINT"HOW MUCH DOES SHE EARN"; 
46 PRINT"IN A WEEK? {DOWN} {BLK}":INPUT"S";D:D1=P*H/ 
198: IFABS(D-D1l )>.881THEN49 
42 GOSUB22:PRINT"{4 DOWN}" 
44 PRINT"{GRN}PRESS 1 TO TRY AGAIN{8 SPACES}2 TO Cc 
ONT INUE" 
45 GETAS: IFAS="1"THEN3@ 
46 IFAS="2"THEN54 
47 GOTO45 
49 GOSUB29 
*5Q PRINT" {DOWN} {RED}MULTIPLY";H; "HOURS BY":PRINTPS 
;" PER HOUR. ":P=H*P:GOSUB15:PRINT"{DOWN}THE ANS 
WER IS “;PS 
52 PRINT"{3 DOWN}":GOTO28 
54 PRINT" {CLR} {BLU}">; :N=INT(RND(@)*S) :H=INT(RND(@) 
*11)+8:GOSUB14:PRINTNS(N);" EARNS ";P$;" PER" 
56 IFN<3THENPRINT"HOUR. {2 SPACES}HE WORKS"; :GOTO69 
58 PRINT"HOUR.{2 SPACES}SHE WORKS"; 
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PRINTH:PRINT"HOURS PER WEEK.{2 SPACES }HOW":IFN< 
3THENPRINT"MUCH WILL HE EARN IN":GOTO64 
PRINT"MUCH WILL SHE EARN IN" 
W=INT(RND(@)*19+2) : PRINTW; "WEEKS? {DOWN} {BLK}":I 
NPUT"S":D:D1=P*H*W/108:IFABS(D-D1 )>.@@1THEN72 
GOSUB22:PRINT"{4 DOWN}{GRN}PRESS 1 TO TRY AGAIN 
{8 SPACES}2 TO CONTINUE" 
GETAS : IFAS="1"THEN54 
IFAS="2"THEN8@ 
GOTO67 
GOSUB2@: PRINT" {DOWN} {RED}MULTIPLY";H; "HOURS BY" 
:PRINTPS$;" PER HOUR. THEN":PRINT"MULTIPLY BY":W 
> "WEEKS. " 
PRINT" {DOWN}THE ANSWER IS ";:P=H*P*W:GOSUB15:PR 
INTPS:PRINT"{3 DOWN}":GOSUB19:GOTO54 
J=INT(RND(@)*5) :T=INT(RND(@)*5) :GOSUB1L4:W=INT(R 
ND(@)*8)+2 
PRINT" {CLR} (BLU}";TS(T);" EARNED ";PS$:PRINT"LAS 
T WEEK": PRINTJS (J) 
IFT<3THENPRINT" {DOWN}IF HE EARNED THIS":GOTO88 
PRINT" {DOWN} IF SHE EARNED THIS" 
PRINT“ AMOUNT EVERY WEEK, ":PRINT"WHAT WOULD THE 
{SPACE} TOTAL{2 SPACES}INCOME BE FOR";W; “WEEKS? 
{Down} {BLK}" 
INPUT"$";D:D1=P*W/100:IFABS(D-D1 ) > .881THEN97 
GOSUB22:PRINT"{4 DOWN} {GRN}TRY AGAIN? (Y/N)" 
GETAS : IFAS="Y" THEN8@ 
IFAS="N"THEN1106 
GOTO93 
GOSUB298: PRINT" {DOWN} {RED}MULTIPLY ";PS$;" PER":P 
RINT"WEEK BY";W; "WEEKS. ":P=P*W:GOSUBL5 
PRINT" {DOWN}THE ANSWER IS ";P$:PRINT" {DOWN}":GO 
SUB19:GOTO8d 
DATASAM, DOING ODD JOBS.,PAUL,JOE,MOWING LAWNS. 
, JACK, BOB, TENDING CHILDREN, MARK, ANN 
DATARUNNING ERRANDS, JANE, SUE,DOING HOUSEWORK, J 
UDY, KAY, DELIVERING ADS, DAWN 
PRINT" {CLR} {BLU} ":END 


Earning Money on the Color Computer works this way: 


Line Function 


10 


Clear screen, PRINT title screen, DIMension 
variables, READ from DATA the name N$, job J§, 
and name T$, and branch past subroutines. 


20-50 Wait for ENTER key to be pressed. 
60-100 Convert price to dollar value. 


110-160 


130 


Clear screen and PRINT problem, randomly choosing 
name, hours, and wage. 
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170 


180 
190-220 
230 


240-300 


310 
320-340 
350-360 


370-410 
420 


430 
440-460 
470 


480-490 
500 


Receive answer, calculate correct answer, and com- 
pare answers. 

Procedure for correct answer. 

PRINT option to try again and branch appropriately. 
If answer is incorrect, show how to get correct answer 
and return for another problem. 

PRINT problem, receive student’s answer, calculate 
correct answer, and compare answers. 

PRINT message for correct answer. 

PRINT option to try again and branch appropriately. 
If answer is incorrect, show how to get correct answer 
and return for another problem of same type. 

PRINT problem. 

Receive student’s answer, calculate correct answer, 
and compare answers. 

PRINT message for correct answer. 

PRINT option to try again and branch appropriately. 
If answer is incorrect, show how to get correct answer 
and return for another problem of same type. 

DATA statements. 

Clear screen and END. 


Program 6-8. Earning Money 


TRS-80 Color Computer; MC- 10; TRS-80 Model | (with 
changes) 


18 CLS:PRINT"MATH COMPETENCY": PRINT"EARNING MONEY" 
:DIMNS (5),J3$(5),T$(5):FORI=O8TO5:READNS (I), J$(IL) 
»TS(L):NEXT: FORI=1T0500:NEXT:GOTO11@ 

29 PRINT @495,"PRESS <ENTER>"; 

39 AS=INKEYS:IF AS=""" THEN 30 

49 IF ASC(AS$)<>13 THEN 30 


598 RETURN 


60 P=1090+25*RND(10) 

70 PS$=STRS(P) 

80 IF LEN(P$)=2 THEN P$=" O"+RIGHTS(PS,1) 

98 PRS=RIGHTS (PS$,2):PLS=LEFTS (P$, LEN(P$ )-2): IFLEN( 

PLS )<2THENPLS=" "+PL$ 

198 PS="S$"+PLS+"."+PR$:RETURN 

118 CLS:N=RND (6 )-1:H=8+RND(19):GOSUB69: PRINTNS (N); 
“ WORKS";H; "HOURS PER WEEK. ": IFN<3THENPRINT "HE 
EARNS "“; :GOTO13@ 


126 PRINT 


"SHE EARNS "; 


138 PRINT P$;:" PER HOUR.":PRINT 
148 IF N<3 THEN PRINT “HOW MUCH DOES HE EARN":GOTO 


160 
15@ PRINT "HOW MUCH DOES SHE EARN" 
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59 
132 


PRINT "IN A WEEK? S$"; 

INPUTD: D1L=P*H/190:IF ABS(D-D1)>.9@81 THEN 230 
PRINT"CORRECT!":FOR C=1 TO 100:NEXT 

PRINT @489, "TRY AGAIN? (Y/N)"; 

AS=INKEYS:IF AS="Y" THEN 110 

IF AS="N" THEN 248 

GOTO200 

PRINT: PRINT"MULTIPLY":H; "HOURS BY ";P$:PRINT"P 
ER HOUR. ": P=H*P:GOSUB70:PRINT"THE ANSWER IS "; 
PS :GOSUB28:GOTO11@ 

CLS :N=RND (6 )-1:H=8+RND (18): GOSUB60:PRINTNS (N); 
" EARNS ";PS;" PER HOUR.":PRINT 

IF N<3 THEN PRINT "HE WORKS";:GOTO 270 

PRINT "SHE WORKS"; 

PRINT H; "HOURS PER WEEK.":PRINT 

IF N<3 THEN PRINT “HOW MUCH WILL HE EARN IN":G 
OTO 3008 

PRINT "HOW MUCH WILL SHE EARN IN" 
W=RND(19)+1:PRINT W; "WEEKS? $"3;:INPUTD:D1=P*H 
*w /100: IFABS (D-D1 ) >. 981 THEN35@ 

PRINT"CORRECT!" 

PRINY @488, "TRY AGAIN? (Y/N)"; 

AS=INKEYS:IF AS$="Y" THEN 240 

IF AS="N" THEN 378 ELSE 330 

PRINT: PRINT"MULTIPLY";H; "HOURS BY ";P$:PRINT"P 
ER HOUR. ":PRINT:PRINT"THEN MULTIPLY BY";W; "WEE 
KS. “: P=H*P*wW:GOSUB794 

PRINT:PRINT"THE ANSWER IS ";P$:GOSUB26:GOTO240 
CLS: J=RND (6 )-1:T=RND(6)-1: GOSUB60 : W=RND(8)+1 
PRINT TS(T)3;" EARNED ";PS;" LAST WEEK":PRINT J 
$(J);"."sPRINT 

IF T<3 THEN PRINT "IF HE EARNED THIS AMOUNT":G 
OTO 4198 

PRINT “IF SHE FARNED THIS AMOUNT" 

PRINT "EVERY WEEK, WHAT WOULD THE TOTALINCOME 
BE FOR";W; "WEEKS?" 

INPUT "$":D:D1=P*wW/100:IF ABS(D-Dl)>.@01 THEN 
47@ 

PRINT "CORRECT!" 

PRINT @488, "TRY AGAIN? (Y/N)"; 

AS=INKEYS:IF AS="Y" THEN 370 

IF AS="N" THEN 588 ELSE 450 

PRINT: PRINT"MULTIPLY ";PS$;" PER WEEK": PRINT"BY 
"ew: "WEEKS. ": P=P*w:GOSUB78:PRINT:PRINT"THE ANS 
WER IS ";P$:GOSUB28:GOTO379 

DATA SAM,DOING ODD JOBS,JOHN,JOE,MOWING LAWNS, 
ANDY, BOB,TENDING CHILDREN, MARK, ANN 

DATA RUNNING ERRANDS, LENA,SUE,DOING HOUSEWORK, 
AURA, KAY,DELIVERING ADS, DAWN 

CLS: END 
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For the TRS-80 Model I version, make the following changes 
in the above listing: 

Change line 20 to PRINT:PRINT “PRESS <ENTER>”; 

Delete @480, in lines 190, 320, and 440. 


Here’s the TI-99/4A version: 


Line 
100-130 
140 


150-190 
200 

210-240 
250-270 
280-320 
330-360 
370-520 


530 
540 
550-560 
570-600 
610-670 


680-840 


850 

860 
870-880 
890-920 
930-1020 


1030-1160 


1170 
1180 
1190-1200 
1210-1240 
1250-1320 


1330-1340 


Function 

Clear screen and PRINT title screen. 

DIMension variables for name N§, job J$, and 
name T$. 

READ from DATA for names and jobs. 

Branch past subroutines. 

Wait for ENTER to be pressed. 

Play sound for incorrect answer. 

Play music for correct answer. 

Convert number to dollars. 

Clear screen, PRINT problem with random name, 
hours, and wage. 

Receive answer. 

Calculate correct answer. 

If answer is correct, play sound effect. 

PRINT option to try again and branch appropriately. 
If answer is incorrect, play sound and show how 
to get correct answer; return for another problem. 
Clear screen and PRINT problem with random 
name, wage, and weeks. 

Receive answer. 

Calculate correct answer. 

If answer is correct, play appropriate sound. 
PRINT option to try again and branch appropriately. 
If answer is incorrect, play sound, show how 

to get correct answer, and then return for another 
problem. 

Clear screen and PRINT problem with random 
name, wage, and weeks. 

Receive answer. 

Calculate correct answer. 

If answer is correct, play musical effect. 

PRINT option to try again and branch appropriately. 
If answer is incorrect, play sound and show how 
to get correct answer, and return for another prob- 
lem of the same type. 

Clear screen and END. 
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Program 6-9. Earning Money 


190 
119 
126 
130 
140 
150 
168 
170 
189 


1908 


TI-O9/4A 

CALL CLEAR 

PRINT TAB(6):;"MATH COMPETENCY" 
PRINT :::TAB(7):;"EARNING MONEY" 
PRINT sss3323323 
DIM NS$(5),7$(5),T$(5) 
FOR I=8 TO 5 
READ N$(I),J$(1),TS(TI) 
NEXT I 
DATA SAM,DOING ODD JOBS,JOHN,JOE,MOWING LAWNS, 
ANDY, BOB, TENDING CHILDREN, MARK, ANN 
DATA RUNNING ERRANDS, LENA,SUE,DOING HOUSEWORK, 
AURA, KAY,DELIVERING ADS, DAWN 
GOTO 3798 
PRINT :TAB(15):;"PRESS <ENTER>"; 
CALL KEY(98,K,S) 
IF K<>13 THEN 220 
RETURN 
CALL SOUND(108,330,2) 
CALL SOUND(15@, 262, 2) 
RETURN 
CALL SOUND(108,262,2) 
CALL SOUND(1908,339,2) 
CALL SOUND(188,392,2) 
CALL SOUND(290,523,2) 
RETURN 

P=1800+25* INT (RND*12 ) 

PS=STRS (P) 
PS="S"ESEGS(PS,1,LEN(PS$ )-2)&". "&SEGS$ (P$, LEN(P$ 
)-1 r) 2 ) 
RETURN 
CALI CLEAR 
RANDOMIZE 

=INT (RND*6 ) 
H=8+INT (RND*11) 
GOSUB 338 

PRINT NS(N);" WORKS":H; "HOURS PER WEEK. " 
IF N<3 THEN 460 

PRINT :"SHE EARNS "; 
GOTO 479 

PRINT :"HE EARNS "; 

PRINT PS$;" PER HOUR.” 

IF N<3 THEN 5190 

PRINT : "HOW MUCH DOES SHE FARN" 
GOTO 526 

PRINT : "HOW MUCH DOES HE FARN" 
PRINT :"IN A WEEK?"s: 

INPUT "$":D 

D1=P*H/100 
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558 IF ABS(D-Dl)>.961 THEN 619 

568 GOSUB 289 

576 PRINT ::"TRY AGAIN? (Y/N)" 

580 CALL KEY(@,K,S) 

599 IF K=89 THEN 370 

689 IF K=78 THEN 689 FLSE 586 

618 GOSUB 2598 

626 PRINT :"MULTIPLY":;H;"HOURS BY ";P$::"PER HOUR. 


638 P=H*p 

648 GOSUB 346 

650 PRINT :"THE ANSWER IS ";P$ 

668 GOSUB 218 

678 GOTO 376 

6880 CALL CLEAR 

690 RANDOMIZE 

700 N=INT(RND*6) 

718 H=INT(RND*11)+8 

720 GOSUB 3390 

730 PRINT NS(N):" EARNS ";PS:" PER HOUR." 
749 IF N<3 THEN 778 

750 PRINT :"SHE WORKS"; 

768 GOTO 78¢ 

778 PRINT : "HE WORKS"; 

788 PRINT H; "HOURS PER WEEK." 

790 IF N<3 THEN 820 

800 PRINT : "HOW MUCH WILL SHE FARN IN" 
81% GOTO 838 

820 PRINT :"HOW MUCH WILL HF EARN IN" 
830 W=INT(RND*19)+2 

848 PRINT :W;: "WEEKS?"s:: 

850 INPUT "S":D 

869 D1l=P*H*w/10G 

878 IF ARS(P-Dl)>.961 THEN 930 

886 GOSUB 289 

898 PRINT ::"TRY AGAIN? (Y/N)" 

9900 CALL KEY(@,K,S) 

910 IF K=89 THEN 689 

920 IF K=78 THEN 1938 ELSE 989 

938 GOSUB 250 

949 PRINT :"MULTIPLY":H; "HOURS BY" 
950 PRINT :P$:" PER HOUR.” 

960 PRINT :"THEN MULTIPLY BY":W; "WEEKS. " 
978 PRINT :"THE ANSWER IS "; 

989 P=H*pP*y 

998 GOSUB 3498 

1960 PRINT PS::: 

1818 GOSUB 210 

148286 GOTO 680 

1838 CALL CLEAR 
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1040 J=INT(RND*6) 

1650 T=INT(RND*6) 

186@ GOSUB 330 

1978 W=INT(RND*8)+2 

1986 PRINT TS(T):" EARNED ";P$;" LAST WEEK" 
1998 PRINT :JS(J):"." 

1190 IF T<3 THEN 1130 

11198 PRINT :"IF SHF EARNED THIS AMOUNT" 
1126 GoTo 1148 

1136 PRINT :"IF HE EARNED THIS AMOUNT" 
1148 PRINT :"EVERY WEFK, WHAT WOULD THE" 
1150 PRINT :"TOTAL INCOME BE FOR" 

1166 PRINT :W: "WEEKS?":: 

1178 INPUT "S$":D 

1189 D1l=P*w/100 

1199 IF ABS(D-Dl)>.961 THEN 1250 

1288 GOSUB 2898 

1210 PRINT ::"TRY AGAIN? (Y/N)"? 

1228 CALL KEY(9,K,S) 

1238 IF K=89 THEN 1830 

1248 IF K=78 THEN 1330 ELSE 1220 

1259 GOSUB 254 

1268 PRINT :"MULTIPLY ";P$;" PER WEEK" 
127G PRINT :"BY":W; "WEEKS." 

1280 P=P*w 

1299 GOSUB 34@ 

1300 PRINT :"THE ANSWER IS ";PSs:: 

1318 GOSUB 2190 

1328 GOTO 1936 

133@ CALL CLEAR 

1348 END 


Weekly Expenses 
Computers: VIC-20; TRS-80 Color Computer; MC-10; TRS-80 Model |; 
TI-99/4A 


Multiplication and addition are used in this word problem drill 
program. One of three summer activities is listed on the screen, 
along with an itemized list of costs for a week. Summer camp, a 
sports clinic, or a canyon resort are the week-long activities, and 
you have to add the total weekly cost of your stay. As soon as you 
enter the correct answer for the addition section of the problem, 
the program will ask you to calculate a total, given those weekly 
expenses, for a random number of weeks. When you respond to 
this part of the problem, you can either continue with another 
question or quit the program. 

All three computer versions work much the same way: 
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Line Function 

20 DIMension variables for activity A$, name N$, and 
phrase P$. 

30-140 READ from DATA the names, phrases, and activity 
title and itemized fees. 

150 Clear screen. 

160-190 Randomly choose one of three places and PRINT 
introduction. 

200-350 Randomly calculate fees for each item and total cost T. 

360-390 Get answer. 

400-430 If answer is incorrect, give correct total. 

440-470 Randomly choose number of weeks and ask for cost. 

480-490 Receive answer. 

500-600 =If answer is incorrect, show how to get right answer 
and return for another problem. 

610 If answer is correct, PRINT message. 

620-670 PRINT option to try again and branch appropriately. 

680-720 Convert cost to dollars for printing. 

730-740 Clear screen and END. 


Program 6-10. Weekly Expenses 


VIC-20 


28 DIMAS(3,5),N$(6),P$(3) 


38 FORA=1T0O3 

49 READNS(A),NS$(A+3),PS$(A) 

58 FORB=1T05 

68 READAS (A,B) 

78 NEXTB 

88 NEXTA 

98 DATALENA,ANDY,IS GOING TO 

198 DATACAMP BEAVER,CAMP FEE,HORSE RIDING, TENNIS L 
ESSONS, CRAFT SUPPLIES 

118 DATAAURA, BILL,WILL ATTEND 

128 DATASPORTS CLINIC, TUITION, UNIFORM FEE, EQUIPMEN 
T FEE,SPECIAL EVENTS 

130 DATAMARY,JOHN,WILL STAY AT 

148 DATALOGAN CANYON,CAMP FEE,T-SHIRTS, ACTIVITY FE 
E, SUPPLIES 

150 PRINT"{CLR}" 

160 I=INT(3*RND(@)+1) 

170 PRINT"HERE ARE THE EXPENSES" 

186 PRINT"FOR ONE WEEK AT":PRINTAS(I,1);"." 

199 PRINT 

208 C=19990* INT(5*RND(G)+1)+4900 

218 GOSUB688 

226 PRINTAS(I,2);TAB(15);C$ 
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2390 
248 
258 
260 
276 
280 
296 
390 
319 
320 
330 
348 
356 
369 
378 
389 
398 
400 
4190 
420 
430 
449 
458 


460 
470 
480 
496 
509 
519 


536 
546 
55@ 
569 
576 
589 
596 
690 
610 
629 
630 
648 
650 
660 
6768 
689 
698 
7608 
716 


138 


T=C 

C=25* INT (12*RND(@)+1)+275 

GOSUB682 

PRINTAS (1I,3);TAB(15);CS$ 

T=T+C 

C=50* INT (8*RND(G)+1)+152 

GOSUB689 

PRINTAS (1I,4);TAB(15);CS$ 

T=T+C 

C=50* INT (5*RND(@)+1)+52 

GOSUB688 

PRINTAS (1,5);TAB(15);CS$ 

T=T+C 

PRINT 

PRINT"TOTAL EXPENSES FOR":PRINT"ONE WEEK = "; 
INPUT"S":A 

PRINT 

IFA=T/100THEN449 

PRINT"ADD THE NUMBERS TO" 

PRINT"GET TOTAL{SHIFT-SPACE}";T/1098 
PRINT 

W=INT (7*RND(@)+2) 
PRINTNS (INT (6*RND(@)+1));" “:PS(INT(3*RND(G) +1 
)) 
PRINTAS(I,1):PRINT"FOR";W; "WEEKS." 
PRINT"WHAT WILL IT COST?" 

INPUT "S":A 

PRINT 

IF A=wW*T/100 THEN 619 
PRINT"MULTIPLY TOTAL EXPENSEPER WEEK TIMES";W; 
"WEEKS " 


C=T*w 

GOSUB68@ 
PRINT"S";T/100;"*"sW;"= "3C$ 
PRINT 

PRINT" PRESS RETURN. “ 


GET ES: IFES=""THEN589 
IFASC(ES$)=13THEN159 

GOTO58@ 

PRINT"CORRECT!" 

PRINT 

PRINT"PRESS 1 TRY AGAIN" 
PRINTTAB(6);"2 END PROGRAM" 

GETES : IFES="1"THENL5@ 
IFES<>"2"THEN659G 

GOTO7 39 

MS=STRS (C) 

IFLEN(M$)=4 THEN MS=" (SHIFT-SPACE}"+M$ 
L=LEN (M$ ) 

CS="$"4+LEFTS (M$,L-2)+"."+RIGHTS (MS, 2) 


Math Competency 


720 


RETURN 


736 PRINT"{CLR}" 


740 


END 


Program 6-11. Weekly Expenses 


TRS-80 Color Computer; MC- 10; TRS-80 Model | 


DIM AS$(3,5),N$(6),P$(3) 
FOR A=l1 TO 3 

READ NS(A),NS$(A+3),PS$(A) 
FOR B=1 TO 5 

READ AS(A,B) 

NEXT B 

NEXT A 

DATA LENA,ANDY,IS GOING TO 


DATA CAMP BEAVER,CAMP FEE,HORSE RIDING, TENNIS 
LESSONS, CRAFT SUPPLIES 

DATA AURA, BILL,WILL ATTEND 

DATA SPORTS CLINIC, TUITION, UNIFORM FEE, EQUIPME 
NT FEE,SPECIAL EVENTS 

DATA MARY,JOHN,WILL STAY AT 

DATA LOGAN CANYON,CAMP FEE, T-SHIRTS,ACTIVITY 
FEE, SUPPLIES 

CLS 

I=RND (3) 

PRINT "HERE ARE THE EXPENSES FOR" 
PRINT "ONE WEEK AT "sAS$S(I,1);"." 
PRINT 

C=RND (5 ) *¥18000+4000 

GOSUB 6898 

PRINT AS$(I,2),C$ 

T=C 

C=RND(12)*25+275 

GOSUB 68@ 

PRINT AS$(1I,3),C$ 

T=T+C 

C=RND (8) *50+15@ 

GOSUB 684 

PRINT AS(1I,4),C$ 

T=T+C 

C=RND(5)*50+5@ 

GOSUB 686 

PRINT AS(I,5),C$ 

T=T+C 

PRINT 

PRINT "TOTAL EXPENSES FOR ONE WEEK =" 
INPUT "S":A 

PRINT 

IF A=T/180 THEN 449 

PRINT "ADD THE NUMBERS TO GET" 
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420 
438 
449 
450 
469 
476 
486 
496 
5608 
510 
528 
530 
549 
55@ 
566 
570 
586 
599 
696 
614 
62G 
638 
64 
65 
668 
67 
689 
699 
7688 
719 
720 
730 
749 


PRINT "TOTAL ";T/109 
PRINT 
W=RND(7)+1 


PRINT NS(RND(6)):" “:PS(RND(3)) 
PRINT AS(I,1);:" FOR":W; "WEEKS. " 
PRINT "WHAT WILL IT COST?" 
INPUT "S":A 

PRINT 

IF A=wW*T/100 THEN 610 

PRINT "MULTIPLY TOTAL EXPENSES" 


PRINT “PER WEEK TIMES":W; "WEEKS: " 
C=T*w 

GOSUB 6890 

PRINT "S"27T/100; Wee We t_. "secs 
PRINT 

PRINT "PRESS ENTER. " 


ES=INKEYS: IF ES="" THEN 586 
IF ASC(ES$)=13 THEN 150 


GOTO 580 
PRINT “CORRECT! " 
PRINT 


PRINT “PRESS 1 ANOTHER PROBLEM" 
PRINT TAB(6);"2 END PROGRAM" 
ES=INKEYS: IF ES="1" THEN 158 

IF ES<>"2" THEN 652 

GOTO 738 

MS=STRS (C) 

IF LEN(MS$ )=4 THEN MS=" "+MS$ 
L=LEN (M$ ) 

CS="S$"+LEFTS (M$,L-2)+". "+RIGHTS (M$, 2) 
RETURN 

CLS 

END 


Program 6-12. Weekly Expenses 


TI-O9/4A 


28 DIM AS$(3,5),N$(6),P$(3) 

38 FOR A=1 TO 3 

49 READ N$(A),NS$(A+3),PS$(A) 
50 FOR B=l1 TO 5 

6@ READ AS(A,B) 

78 NEXT B 

89 NEXT A 

98 DATA LENA,ANDY,IS GOING TO 


190 


119 
120 
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DATA CAMP BEAVER,CAMP FEE,HORSE RIDING,TENNIS, 
CRAFTS 

DATA AURA, BILL,WILL ATTEND 

DATA SPORTS CLINIC,TUITION,UNIFORM FEE, EQUIPME 
NT FEE,SPECIAL EVENT 
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DATA MARY,JOHN,WILL STAY AT 
DATA LOGAN CANYON,CAMP FEE,T-SHIRTS,ACTIVITY F 
EE, SUPPLIES 

CALL CLEAR 

RANDOMIZE 

I=INT(3*RND+1 ) 

PRINT “HERE ARE THE EXPENSES FOR" 
PRINT "ONE WEEK AT ":AS(I,1):"." 
PRINT 

C=INT (5*RND+1 ) *1900+4000 

GOSUB 689 

PRINT AS(I,2),C$ 

T=C 

C=INT(12*RND+1 ) *25+275 

GOSUB 689 

PRINT AS(I,3),CS$ 

T=T+C 

C=INT(8*RND+1 ) *564+15@ 

GOSUB 689 

PRINT AS(I,4),C$ 

T=T+C 

C=INT (5*RND+1 ) *50+56 

GOSUB 684 

PRINT AS(I,5),C$ 

T=T+C 

PRINT 

PRINT "TOTAL EXPENSES FOR ONE WEEK" 
INPUT "S"sA 

PRINT 

IF A=T/100 THEN 440 

PRINT “ADD THE NUMBERS TO GET" 
PRINT "TOTAL ";T/19@ 

PRINT 

W=INT (7*RND+2 ) 

PRINT NS (INT(6*RND+1));3" "3PS(CINT(3*RND#1 ) ) 
PRINT AS(I,1);:" FOR":W?: "WEEKS. " 
PRINT "WHAT WILL If COST?" 

INPUT "S":A 

PRINT 

IF A=wW*T/199 THEN 610 

PRINT "MULTIPLY TOTAL EXPENSES" 
PRINT "PER WEEK TIMES":;W: "WEEKS: “ 


C=T*w 

GOSUB 682 

PRINT "$";:T/100;:"*"sw;"= "scs 
PRINT 


PRINT “PRESS ENTER." 
CALL KFY(@,K,S) 
IF K=13 THEN 158 
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648 GOTO 580 

619 PRINT "CORRECT!" 

628 PRINT 

639 PRINT "PRESS 1 ANOTHER PROBLEM" 
648 PRINT TAB(7);"2 END PROGRAM" 
658 CALL KEY(@,K,S) 

660 IF K=49 THEN 15@ 

678 IF K=58 THEN 730 ELSE 650 

688 MS=STRS(C) 

699 IF LEN(M$)>3 THEN 790 

695 MSs" "gms 

788 L=LEN(MS ) 

718 C$="S$"ESEGS (M$,1,L-2)&"."&SEGS (M$,L-1,2) 
726 RETURN 

738 CALL CLEAR 

748 END 


Saving Money 

Computers: VIC-20; TRS-80 Color Computer; MC-10; TRS-80 Model I; 
TI-OO/4A 

“Saving Money” gives you a chance to brush up on your divi- 

sion skills. The program first chooses one of six names to use in 

the problem. One of three major items, with its price, is selected. 

The computer also randomly selects a number to represent the 

number of weeks you'll have to save for this item. You have to 

figure out how much money you'd need to save each week to 

purchase the item. 

The price of the item is determined by a base value multi- 
plied by a random number in a range from 1 to F. The base value, 
multiplier, and value F are all READ from DATA statements in 
the program. 

Here’s how the program works: 


Line Line Function 
VIC-20 Color Computer 

and TI-99/4A 
30 120 Clear screen. 


40-110 130-200 READ from DATA six names N$, the 
item A$ with a base price B, a multiplier 
M, and random factor F. 

120 210 Clear screen. 

130-140 220-230 Randomly PRINT name. 

150-160 240-250 Randomly choose one of three items. 

170-190 260-280 Calculate and PRINT cost of item. 

200-270 290-360 Randomly choose number of weeks and 
PRINT problem. 
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280 370 Calculate correct answer. 

290 380 Receive answer. 

300-370 390-460 If answer is incorrect, show how to get 
right answer, and return for another 
problem. 


380-400 470-490 PRINT message for correct answer. 
410-460 500-550 PRINT option to try again and branch 


appropriately. 
470-510 560-600 Convert cost into dollars. 
520-530 610 END. 
Program 6-13. Saving Money 
VIC-20 


For Commodore 64 version, add line 25: 25 POKE 53281,1 


38 PRINT" {CLR}" 

4@ FOR C=1 TO 6 

58 READ NS(C) 

60 NEXT C 

76 FOR C=1 TO 3 

88 READ AS(C),B(C),M(C),F(C) 

99 NEXT C 

168 DATA SALLY,HEIDI,NANCY, BRENT, DAVID, CHUCK 

119 DATA BIKE, 8@,5,7,STEREO, 90,5,14,COMPUTER,190,1 
0,19 

128 PRINT" {CLR} {BLU}” 

138 R6=INT(6*RND(G9)+1) 

149 PRINT NS$(R6);" WANTS TO BUY A" 

158 R3=INT(3*RND(G)+1) 

16@ PRINT AS(R3);"." 

178 T=B(3)+M(R3)* INT(F(R3) *RND(9)+1) 

188 GOSUB 488 

198 PRINT"IT WILL cCosT ";cS$;"." 

209 PS="HE" 

210 IF R6>=4 THEN 230 

228 PS="SHE" 

230 W=10*INT(4*RND(@)+1) 

240 PRINT"IF ":P$:" SAVES FOR" 

245 PRINTW; "WEEKS, " 

250 PRINT"HOW MUCH WILL ";NS$(R6)" 

268 PRINT"NEED TO SAVE EACH" 

265 PRINT"WEEK?" 

270 PRINT" {BLK}" 

288 S=(T/W)/1808 

298 INPUT ANS 

300 IF ABS(ANS-S)<.@l1 THEN 380 

318 PRINT"{RED}JTOTAL COST ";CS$ 

320 PRINT"DIVIDED BY":W; "WKS =" 
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338 GOSUB 479 

348 PRINTCS 

350 PRINT" {GRN}" 

360 INPUT "PRESS <RETURN>";ES 
378 GOTO 129 

388 PRINT 

398 PRINT" {RED}CORRECT!" 

498 PRINT 

419 PRINT" {BLK}ANOTHER PROBLEM?" 
428 PRINT"(Y/N)" 

430 GET ES 

440 IF ES="Y" THEN 126 

450 IF{2 SPACES]ES="N" THEN 526 
468 GOTO 43¢ 

478 T=S+.995 

488 T=INT(1900*T) 

499 TS=STRS(T) 

598 CS="S$"+LEFTS(TS,LEN(TS)-2)+"."+RIGHTS (TS, 2) 
518 RETURN 

520 PRINT"{CLR} {BLU}" 

539 END 


Program 6-14. Saving Money 
TRS-80 Color Computer; MC-10; TRS-80 Model | 


126 CLS 

130 FOR C=l1 TO 6 

149 READ NS(cC) 

158 NEXT C 

168 FOR C=1 TO 3 

178 READ AS$(C),B(C),M(C),F(C) 

186 NEXT C 

198 DATA SALLY, HEIDI,NANCY, BRENT, DAVID, CHUCK 

202 DATA BIKE,80,5,7,STEREO,90,5,14,COMPUTER,1900,1 
G,12 

218 CLS 

228 R6=RND(6) 

236 PRINT N$(R6);" WANTS TO BUY A" 

248 R3=RND(3) 

250 PRINT AS(R3);"." 

268 T=B(R3)+M(R3)*RND(F(R3) ) 

278 GOSUB 578 

288 PRINT "IT WILL COST ";Cc$;"." 

290 PS="HE" 

300 IF R6>=4 THEN 3298 

318 PS="SHE" 

326 wW=19*RND(4) 

330 PRINT "IF ";PS;" SAVES FOR";W; "WEEKS, " 

348 PRINT "HOW MUCH WILL “;N$(R6);" NEED" 

358 PRINT "TO SAVE EACH WEEK?" 
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368 PRINT 

376 S=(T/W)/190 

380 INPUT ANS 

390 IF ABS(ANS-S)<.@1 THEN 4706 
490 PRINT "TOTAL COST ":;CS 

416 PRINT "DIVIDED BY":W; "WEEKS =" 
428 GOSUB 568 

430 PRINT CS 

449 PRINT 

458 INPUT "PRESS <ENTER>";:ES 
468 GOTO 210 

478 PRINT 

486 PRINT "CORRECT!" 

499 PRINT 

588 PRINT "ANOTHER PROBLEM?" 
510 PRINT "(Y/N)" 

520 ES=INKEYS 

530 IF ES="Y" THEN 210 

540 IF ES="N" THEN 610 

558 GOTO 526 

566 T=S 

570 T=INT(100*T ) 

588 TS=STRS(T) 

598 CS="S$"+LEFTS (T$, LEN(TS$ )-2)+". "+RIGHTS (TS, 2) 
669 RETURN 

616 END 


Program 6-15. Saving Money 
TI-99/4A 


128 CALL CLEAR 

138 FOR C=1 TO 6 

149 READ NS$(c) 

156 NEXT C 

168 FOR C=1 TO 3 

178 READ AS(C),B(C),M(C),F(C) 

188 NEXT C 

198 DATA SALLY,HEIDI,NANCY, BRENT, DAVID, CHUCK 

208 DATA BIKE,80@,5,7,STEREO,98,5,14, COMPUTER, 190,-1 
0,10 

218 CALL CLEAR 

215 RANDOMIZE 

226 R6=INT(6*RND+1 ) 

230 PRINT NS$(R6);" WANTS TO BUY A" 

248 R3=INT(3*RND+1 ) 

258 PRINT AS$(R3);"." 

268 T=B(R3)+M(R3)*INT(F(R3) *RND+1 ) 

278 GOSUB 5708 

286 PRINT "IT WILL COST ";CcS$;"." 
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298 P$="HE" 

366 IF R6>=4 THEN 320 

318 P$="SHE" 

328 W=10*INT(4*RND+1 ) 

330 PRINT "IF ";P$;" SAVES FOR";W; "WEEKS, " 

348 PRINT "HOW MUCH WILL ";N$(R6);" NEED" 

358 PRINT "TO SAVE EACH WEEK?" 

368 PRINT 

378 s=(T/w) /12@ 

388 INPUT ANS 

390 IF ABS(ANS-S)<.@1 THEN 4792 

498 PRINT “TOTAL COST ";C$ 

41% PRINT “DIVIDED BY";W; "WEEKS =" 

4208 GOSUB 560 

438 PRINT c$ 

448 PRINT 

450 INPUT "PRESS <ENTER>":ES$ 

468 GOTO 218 

476 PRINT 

480 PRINT "CORRECT!" 

499 PRINT 

500 PRINT "ANOTHER PROBLEM?" 

510 PRINT "(Y/N)" 

526 CALL KEY(9,K,S) 

530 IF K=89 THEN 2190 

540 IF K=78 THEN 619 

558 GOTO 526 

568 T=S 

578 T=INT(100*T) 

588 TS=STRS$(T) 

598 cS="S"sSEGS(TS,1,LEN(T$)-2)&". "&SEGS (TS, LEN(T$ 
)-1,2) 

660 RETURN 

6198 END 
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Chapter 7 
Homework Helpers 


Computers work best when they do repetitive tasks. Checking 
your homework is just that — it’s repetitive, time-consuming, 
and often boring. The programs in this chapter, which have all 
been adapted for use on one of three computers, are designed to 
quickly check your homework. 

You should do your problems on paper, as usual, showing 
all the steps in getting an answer, and then use these programs 
to check your results. These programs, because they are quite 
simple, show only an answer, not the step-by-step process of 
solving the problem. 

After each problem, you can press 1 for another problem, 
or 2 to end the program. 


Division 

Computers: VIC-20; TRS-80 Color Computer; MC- 10; TRS-80 Model I; 
TI-99/4A 

Most division problems can be checked and corrected with a 

calculator. However, if there is a remainder, a calculator converts 

it to a decimal equivalent. When you first learn division, you 

learn to divide and specify a remainder if the number does not 

divide evenly. “Division” keeps the answer in quotient plus 

remainder form. When you enter the divisor and dividend, the 

quotient and remainder are printed. 

The INTeger function is used in these programs to calculate 
the whole number part of the quotient. The remainder is then 
the difference between the original number and the integer 
portion, multiplied by the divisor. 


Program 7-1. Division 

VIC-20 
110 PRINT" {CLR}" 
128 PRINT"DIVISION-~-REMAINDER" 
130 PRINT 
148 PRINT 
158 PRINTTAB(11); "QUOTIENT" 
168 PRINTTAB(9) ; "---------- " 
178 PRINT" DIVISOR ) DIVIDEND" 
188 PRINT:PRINT 
199 INPUT "DIVISOR:{2 SPACES}";D 
200 IF D<>S THEN 239 
218 PRINT"DIVISOR CANNOT = 8" 
228 GOTO 198 
230 INPUT "DIVIDEND: “;N 
240 Q=INT(N/D) 
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258 R=N-Q*D 

269 PRINT 

278 PRINT“QUOTIENT = ";Q;" R";R 
289 PRINT 

298 PRINT"CHOOSE: " 

300 PRINT” 1 ANOTHER PROBLEM" 
318 PRINT" 2 END PROGRAM" 
328 GET AS 

330 IF AS="l1"THEN 110 

349 IF A$<>"2"THEN 3298 

358 END 


Program 7-2. Division 
TRS-80 Color Computer; MC- 10; TRS-80 Model | 


118 CLS 

126 PRINT"DIVISION--REMAINDER" 
130 PRINT 

148 PRINT 

158 PRINTTAB(11); "QUOTIENT" 
166 PRINTTAB(9); "---------- " 
176 PRINT" DIVISOR ) DIVIDEND" 
188 PRINT 

199 INPUT "DIVISOR: "3D 

200 IF D<>S THEN 230 

218 PRINT"DIVISOR CANNOT = 6" 
228 GOTO 192 

230 INPUT "DIVIDEND: ";N 

248 Q=INT(N/D) 

250 R=N-Q*D 

260 PRINT 

278 PRINT"QUOTIENT = ":Q:" R":R 
288 PRINT 

298 PRINT"CHOOSE;: " 

380 PRINT" 1 ANOTHER PROBLEM" 
318 PRINT" 2 END PROGRAM" 

320 AS=INKEYS 

330 IF AS="l1"THEN 112 

340 IF AS$<>"2"THEN 322 

358 END 


Program 7-3. Divison 
TI-99/4A 


118 CALL CHAR(37, "8848202020920408" ) 

126 CALL CHAR(38, "G@OBSSOUVSGSOOSOFF" ) 
138 CALL CLEAR 

148 PRINT "DIVISION WITH REMAINDER": ::: 
15@ PRINT TAB(11); "QUOTIENT" 

160 PRINT TAB(19) 3: "&&&&&&&E&E&E" 
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17@ PRINT " DIVISOR &SDIVIDEND":::3: 
188 INPUT "DIVISOR: "sti 

190 IF I<>O THEN 226 

260 PRINT :"“SORRY, DIVISOR CANNOT = O"s:: 
218 GOTO 186 

226 INPUT "DIVIDEND: ":D 

2308 Q=INT(D/TI) 

246 R=D-Q*I 

258 PRINT : "QUOTIENT ="3:03;" R":R 
264 PRINT ::: “CHOOSE: " 

278 PRINT " 1 ANOTHER PROBLEM" 

280 PRINT " 2 END PROGRAM" 

298 CALL KEY(98,K,S) 

300 IF K=49 THEN 132 

3190 IF K<>50 THEN 290 

3280 CALL CLEAR 

338 END 


All Factors 
Computers: VIC-20; TRS-80 Color Computer; MC-10; TRS-80 Model I; 
TI-99/4A 


This program will find all the factors of a number that you enter. 
(Factors are all the possible divisors that will yield an integer 
answer.) For example, the number 12 has the factors 12, 6, 4, 3, 2, 
and 1. You must enter a number greater than 1. Large numbers 
will take longer for the computer to factor. 


Program 7-4. Find All Factors 
VIC-20 


110 PRINT" {CLR}" 

120 PRINT"FINDING ALL FACTORS" 
138 PRINT 

148 PRINT"ENTER NUMBER TO BE" 
158 INPUT “FACTORED: ";:N 

16@ IF N>l THEN 190 

178 PRINT“ ENTER NUMBER > 1" 
188 GOTO013d 

198 PRINT"FACTORS OF";N; "ARE" 
2098 PRINT N; 

2189 B=INT(N/2+1) 

228 FOR C=2 TO B 

238 IF N/C<>INT(N/C) THEN 289 
248 B=N/C 

25@ PRINT B; 

268 IF B=l THEN 390 

276 IF B=2 THEN 290 

28@ NEXT C 
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298 PRINT " 1" 

3088 PRINT 

310 PRINT"CHOOSE: " 

320 PRINT" 1 ANOTHER PROBLEM" 
330 PRINT" 2 END PROGRAM" 

3490 GETAS 

350 IF AS="1" THEN 110 

360 IF AS<>"2" THEN 348 

378 PRINT" {CLR}":END 


Program 7-5. Find All Factors 
TRS-80 Color Computer; MC- 10; TRS-80 Model | 


118 CLS 

120 PRINT"FINDING ALL FACTORS" 
138 PRINT 

148 PRINT"ENTER NUMBER TO BE" 
150 INPUT "FACTORED: ";N 

160 IF N>l THEN 190 

178 PRINT"ENTER NUMBER > 1" 
188 GOTO0136 

198 PRINT"FACTORS OF";N; "ARE" 
200 PRINT N; 

218 B=INT(N/2+1) 

220 FOR C=2 TO B 

230 IF N/C<>INT(N/C) THEN 280 
248 RB=N/C 

250 PRINT B; 

260 IF B=1l THEN 309 

270 IF B=2 THEN 290 

280 NEXT C 

298 PRINT " 1" 

300 PRINT 

318 PRINT "CHOOSE: " 

320 PRINT " 1 ANOTHER PROBLEM" 
330 PRINT " 2 END PROGRAM" 
348 AS=INKEYS 

356 IF AS="1" THEN 116 

360 IF AS<>"2" THEN 340 

378 CLS:END 


Program 7-6. Find All Factors 
TI-99/4A 


110 CALL CLEAR 

128 PRINT "FINDING ALL FACTORS" 
130 PRINT 

1496 PRINT “ENTER NUMBER TO BE" 
158 INPUT "FACTORED: ":N 

168 IF N>l THEN 1990 
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176 PRINT “ENTER NUMBER > 1" 
188 GOTO 136 

196 PRINT :"FACTORS OF";N; "ARE" 
200 PRINT N; 

218 B=INT(N/2+1) 

228 FOR C=2 TO B 

230 IF N/C<>INT(N/C)THEN 280 
249 B=N/C 

258 PRINT B; 

260 IF B=l THEN 300 

276 IF B=2 THEN 290 

286 NEXT C 

296 PRINT " 1" 


38@ PRINT 

3186 PRINT "CHOOSE:" 

328 PRINT “ 1 ANOTHER PROBLEM" 
339 PRINT " 2 END PROGRAM" 

348 CALL KEY(@,K,S) 

350 IF K=49 THEN 119 

366 IF K<>58 THEN 340 

378 CALL CLEAR 

389 END 


Prime Factors 

Computers: VIC-20; TRS-80 Color Computer; MC- 10; TRS-80 Model I; 
TI-99/4A 

“Prime Factors” returns a list of the prime factors for a number 

you enter. Another term for this process is complete factorization. 

All prime factors multiplied together will yield the original 

number. For example, the prime factors of the number 12 are 2, 

2, and 3. You must enter a number greater than 1. 


Program 7-7. Prime Factors 
VIC-20 


118 PRINT" {CLR}" 

126 PRINT"PRIME FACTORS OR" 

138 PRINT"COMPLETE FACTORIZATION" 
149 PRINT 

159 PRINT"ENTER NUMBER TO BE" 

168 INPUT “FACTORED: ";:N 

178 IF N>l THEN 200 

188 PRINT"NUMBER MUST BE > 1" 

198 GOTO 148 

288 PRINT 

219 PRINT"THE PRIME FACTORS ARE:" 
220 G=INT(N/2) 

238 FOR I=2 TOG 

249 IF N/I<>INT(N/I) THEN 296 
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258 N=N/I 

268 G=N 

278 PRINT I; 

288 GOTO 230 

299 NEXT I 

300 IF N=l THEN 320 

318 PRINT N 

320 PRINT 

330 PRINT 

348 PRINT"CHOOSE:" 

358 PRINT" 1 ANOTHER PROBLEM" 
368 PRINT” 2 END PROGRAM" 
378 GET AS 

380 IF AS="1" THEN 119 
398 IF A$<>"2" THEN 3728 
498 PRINT" (CLR}":END 


Program 7-8. Prime Factors 
TRS-80 Color Computer; MC- 10; TRS-80 Model | 


118 CLS 

120 PRINT"PRIME FACTORS OR" 
138 PRINT"COMPLETE FACTORIZATION" 
149 PRINT 

158 PRINT"ENTER NUMBER TO BR" 
168 INPUT “FACTORED: ";N 

178 IF N>l THEN 202 

188 PRINT"NUMBER MUST BE > 1" 
198 GOTO 148 

200 PRINT 

219 PRINT"THE PRIME FACTORS ARE:" 
220 G=INT(N/2) 

238 FOR I=2 TO G 

248 IF N/I<>INT(N/I) THEN 296 
258 N=N/I 

268 G=N 

2708 PRINT I; 

288 GOTO 230 

298 NEXT I 

308 IF N=1 THEN 329 

318 PRINT N 

328 PRINT 

338 PRINT 

348 PRINT"CHOOSE: " 

358 PRINT" 1 ANOTHER PROBLEM" 
360 PRINT" 2 END PROGRAM" 

378 AS=INKEYS$ 

388 IF AS="1" THEN 119 

398 IF A$<>"2" THEN 379 

498 CLS:END 
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Program 7-9. Prime Factors 
TI-99/4A 


118 CALL CLEAR 

128 PRINT "PRIME FACTORS OR" 
138 PRINT "COMPLETE FACTORIZATION" 
148 PRINT 

150 PRINT "ENTER NUMBER TO BE" 
168 INPUT "FACTORED: ":N 

170 IF Nol THEN 2980 

186 PRINT “NUMBER MUST BE > 1" 
198 GOTO 1498 

206 PRINT 

218 PRINT "THE PRIME FACTORS ARE:" 
228 G=INT(N/2) 

238 FOR I=2 TO G 

240 IF N/I<>INT(N/I)THEN 290 
250 N=N/I 

268 G=N 

278 PRINT I; 

288 GOTO 230 

298 NEXT I 

300 IF N=l THEN 329 

310 PRINT N 

328 PRINT 

338 PRINT 

348 PRINT "CHOOSE: " 

350 PRINT " 1 ANOTHER PROBLEM" 
368 PRINT " 2 END PROGRAM” 

378 CALL KEY(@,K,S) 

380 IF K=49 THEN 110 

390 IF K<>598 THEN 370 

499 CALL CLEAR 

418 END 


Greatest Common Factor 
Computers: VIC-20; TRS-80 Color Computer; MC- 10; TRS-80 Model I; 
TI-99/4A 


This program will find the greatest common factor (GCF) of two 
numbers. This mathematical concept is usually introduced 
before the concept of simplifying fractions. For example, if the 
two numbers entered are 12 and 18, the greatest common factor 
is 6. Both numbers can be evenly divided by 6. Although they 
may also both be divided by 3 or 2, 6 is the largest factor. You 
enter two numbers, and the computer will show the greatest 
common factor. 
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Program 7-10. Greatest Common Factor 
VIC-20 


119 PRINT" {CLR}" 

120 PRINT"GREATEST COMMON FACTOR" 
138 PRINT"OF TWO NUMBERS" 

148 PRINT 

15@ INPUT "FIRST NUMBER ":M 
1690 IF M>?l THEN 199 

178 PRINT"ENTER NUMBER > 1" 
188 GOTO 148 

198 IF{2 SPACES}M<18099 THEN 229 
200 PRINT"MUST BE < 19900" 

218 GOTO149 

228 PRINT 

230 INPUT "SECOND NUMBER ";N 
249 IF N>l THEN 276 

258 PRINT"ENTER NUMBER > 1" 
268 GOTO 229 

270 IF N<19909 THEN 300 

288 PRINT"MUST BE < 19909" 

298 GOTO 229 

308 PRINT 

318 PRINT"GREATEST COMMON FACTOR ={SHIFT-SPACE}"; 
320 IF M=N THEN G=M:GOTO 458 
336 IF{2 SPACES}M<N THEN 372 
348 MM=M 

358 M=N 

360 N=MM 

370 FOR I=l1 TO M 

380 IF (M/I)<>INT(M/1I)THEN 430 
398 J=M/I 

409 IF (N/J)<>INT(N/J)THEN 430 
418 G=J 

428 GOTO 459 

438 NEXT I 

449 G=1 

450 PRINT G 

460 PRINT 

470 PRINT"CHOOSE: " 

480 PRINT" 1 ANOTHER PROBLEM" 
499 PRINT" 2 END PROGRAM" 

500 GET AS 

518 IF AS="1" THEN 110 

520 IF AS$<>"2" THEN 580 

5308 PRINT" {CLR}":END 
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Program 7-11. Greatest Common Factor 
TRS-80 Color Computer; MC- 10; TRS-80 Model | 


1198 CLS 

128 PRINT"GREATEST COMMON FACTOR" 
138 PRINT"OF TWO NUMBERS" 

148 PRINT 

158 INPUT "FIRST NUMBER ";M 
169 IF M>l THEN 198 

178 PRINT"ENTER NUMBER > 1" 
188 GOTO 148 

199 IF M<18000@ THEN 220 

208 PRINT"MUST BE < 18809" 
218 GOTO 148 

228 PRINT 

238 INPUT "SECOND NUMBER ";N 
240 IF N>l THEN 279 

258 PRINT"ENTER NUMBER > 1" 
268 GOTO 220 

278 IF N<1080G THEN 300 

288 PRINT"MUST BE < 19080" 
298 GOTO 220 

308 PRINT 

319 PRINT"GREATEST COMMON FACTOR =" 
320 IF M=N THEN G=M:GOTO 45¢ 
330 IF M<N THEN 370 

349 MM=M 

350 M=N 

369 N=MM 

378 FOR I=l TO M 

386 IF (M/I)<>INT(M/I)THEN 432 
398 J=M/I 

499 IF (N/J)<>INT(N/J)THEN 430 
418 G=J 

428 GOTO 456 

430 NEXT I 

449 G=1 

450 PRINT G 

469 PRINT 

478 PRINT"CHOOSE: " 

489 PRINT" 1 ANOTHER PROBLEM" 
499 PRINT" 2 END PROGRAM" 

588 AS=INKEYS$ 

519 IF AS="l1" THEN 110 

520 IF AS<>"2" THEN 589 

539 CLS:END 
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Program 7-12. Greatest Common Factor 


110 
129 
138 
149 
158 
168 
178 
188 
198 
288 
218 
228 
238 
249 
258 
269 
270 
280 
298 
386 
318 
326 
330 
340 
356 
360 
378 
386 
398 
490 
416 
420 
430 
440 
458 
460 
47 
480 
499 
580 
510 
528 
538 
548 
558 
560 
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CALL CLEAR 
PRINT "GREATEST COMMON FACTOR" 
PRINT "OF TWO NUMBERS" 
PRINT 
INPUT "FIRST NUMBER ":M 
IF M>l THEN 198 
PRINT "ENTER NUMBER > 1" 
GOTO 142 
IF M<19000 THEN 220 
PRINT "MUST BE < 19909" 
GOTO 149 
PRINT 
INPUT "SECOND NUMBER ":N 
IF N>l THEN 278 
PRINT "ENTER NUMBER > 1" 
GOTO 229 
IF N<19088 THEN 382 
PRINT "MUST BE < 189900" 
GOTO 228 
PRINT 
PRINT "GREATEST COMMON FACTOR =" 
IF M<oN THEN 3598 
G=M 
GOTO 478 
IF M<N THEN 399 
MM=M 
=N 
N=MM 
FOR I=l TO M 
IF (M/I)<>INT(M/I)THEN 458 
J=mM /I 
IF (N/J)<>INT(N/J)THEN 458 
G=J 
GOTO 476 
NEXT I 
G=1 
PRINT G 
PRINT 
PRINT "CHOOSE: " 
PRINT " 1 ANOTHER PROBLEM" 
PRINT " 2 END PROGRAM" 
CALL KEY (8,K,S) 
IF K=49 THEN 110 
IF K<>5@ THEN 520 
CALL CLEAR 
END 
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Least Common Multiple 

Computers: VIC-20; TRS-80 Color Computer; MC-10; TRS-80 Model I; 
TI-S9/4A 

Use this program to find the least common multiple of two or 

three numbers. First, enter 2 or 3 for the number of given num- 

bers. Next enter the numbers. The program will return the least 

common multiple. 

For example, enter three numbers, such as 12, 18, and 6. The 
least common multiple is 36. 36 may be divided evenly by 12, 18, 
and 6, and is the smallest number that can be divided by all three. 

This concept is usually introduced to students before they 
learn about adding and subtracting fractions with unlike 
denominators. Another name for this concept is smallest common 
denominator. 


Program 7-13. Least Common Multiple 
VIC-20 


118 PRINT" {CLR}" 

126 PRINT"LEAST COMMON MULTIPLE" 
138 PRINT"OF 2 OR 3 NUMBERS" 

149 PRINT 

158 PRINT"HOW MANY NUMBERS--2, 3?" 
160 GET AS:IF AS="" THEN 162 

178 IF ASC(AS$)<58 THEN 169 

189 IF ASC(AS$)>51 THEN 169 

198 PRINT AS;" NUMBERS" 

208 FOR C=l TO VAL(AS) 

210 PRINT 

220 PRINT" NUMBER";C; 

230 INPUT N(C) 

246 IF N(C)>1l THEN 279 

258 PRINT"NUMBER MUST BE > 1" 
268 GOTO 2190 

270 IF N(C)<1800 THEN 380 

288 PRINT"NUMBER MUST BE < 1908" 
298 GOTO 2198 

300 NEXT C 

310 IF AS="3" THEN 448 

320 IF N(1)<>N(2) THEN 3592 

338 L=N(1) 

348 GOTO 638 

350 IF N(1)<N(2) THEN 390 

368 NN=N(1) 

370 N(1)=N(2) 

380 N(2)=NN 

398 FOR C=1 TO N(1) 
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400 IF C*N(2)/N(1)=INT(C*N(2)/N(1)) THEN L=C*N(2): 
GOTO 638 

418 NEXT C 

428 L=N(1)*N(2) 

438 GOTO 630 

448 S=0 

458 FOR C=1 TO 2 

469 IF N(C)<=N(C+1) THEN 5190 

478 NN=N(C) 

486 N(C)=N(C+1) 

499 N(C+1)=NN 

508 S=1 

518 NEXT C 

520 IF S=l THEN 440 

530 FOR C=1 TO N(2) 

540 F=C*N(3) 

550 IF (F/N(1)=INT(F/N(1))) AND (F/N(2)=INT(F/N(2) 
)) THEN L=F:GOTO 639 

568 NEXT C 

570 M=N(2)*N(3) 

58@ FOR C=1 TO N(1) 

590 F=C*M 

600 IF F/N(1)=INT(F/N(1)) THEN L=F:GOTO 632 

618 NEXT C 

620 L=M*N(1) 

630 PRINT 

640 PRINT"LEAST COMMON MULTIPLE IS "; 

650 PRINTL 

668 PRINT 

678 PRINT"CHOOSE: " 

688 PRINT" 1 ANOTHER PROBLEM” 

698 PRINT" 2 END PROGRAM" 

786 GET AS 

718 IF AS="1" THEN 118 

720 IF AS<>"2" THEN 702 

738 PRINT" {CLR}":END 


Program 7-14, Least Common Multiple 
TRS-80 Color Computer; MC-10; TRS-80 Model I 


118 CLS 

126 PRINT“LEAST COMMON MULTIPLE" 

138 PRINT“"OF 2 OR 3 GIVEN NUMBERS" 
148 PRINT 

158 PRINT"HOW MANY NUMBERS--2 OR 3?" 
168 AS=INKEYS:IF AS$="" THEN 169 

178 IF ASC(AS)<59 THEN 160 

188 IF ASC(AS)>5l1 THEN 168 

198 PRINT A$;“" NUMBERS" 
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268 FOR C=l1 TO VAL(AS) 

218 PRINT 

220 PRINT"NUMBER";C; 

238 INPUT N(C) 

2406 IF N(C)>l THEN 270 

250 PRINT"NUMBER MUST BE > 1" 

260 GOTO 219 

276 IF N(C)<1000 THEN 3980 

288 PRINT"NUMBER MUST BE < 1996" 

298 GOTO 218 

306 NEXT C 

318 IF A$="3" THEN 449 

320 IF N(1)<>N(2) THEN 358 

338 L=N(1) 

348 GOTO 639 

350 IF N(1)<N(2) THEN 390 

368 NN=N(1) 

378 N(1)=N(2) 

386 N(2)=NN 

398 FOR C=l1 TO N(1) 

490 IF C*N(2)/N(1)=INT(C*N(2)/N(1)) THEN L=C*N(2): 
GOTO 638 

410 NEXT C 

426 L=N(1)*N(2) 

438 GOTO 630 

448 s=@ 

450 FOR C=1 TO 2 

468 IF N(C)<=N(C+1l) THEN 5198 

476 NN=N(c) 

488 N(C)=N(c+1) 

498 N(c+1)=NN 

588 S=1 

518 NEXT C 

520 IF S=1 THEN 448 

538 FOR C=1 TO N(2) 

540 F=C*N(3) 

550 IF (F/N(1)=INT(F/N(1))) AND (F/N(2)=INT(F/N(2) 
)) THEN L=F:GOTO 638 

568 NEXT C 

578 M=N(2)*N(3) 

586 FOR C=1 TO N(1) 

598 F=Cc*M 

666 IF F/N(1)=INT(F/N(1)) THEN L=F:GOTO 639 

618 NEXT C 

628 L=M*N(1) 

638 PRINT 

640 PRINT"LEAST COMMON MULTIPLE IS" 

658 PRINTL 

668 PRINT 
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678 PRINT"CHOOSE: " 

689 PRINT" 1 ANOTHER PROBLEM" 
698 PRINT" 2 END PROGRAM" 

786 AS=INKEYS 

719 IF A$="1" THEN 119 

720 IF A$<>"2" THEN 789 

738 CLS:END 


Program 7-15. Least Common Multiple 
TI-O9/4A 

118 CALL CLEAR 

120 PRINT "LEAST COMMON MULTIPLE" 

138 PRINT "OF 2 OR 3 GIVEN NUMBERS” 

148 PRINT 

158 PRINT “HOW MANY NUMBERS --2 OR 3?" 

168 CALL KEY(@,K,S) 

178 IF K<5@ THEN 160 

189 IF K>5l THEN 168 

199 PRINT K-48;" NUMBERS" 

208 FOR C=1 TO K-48 

210 PRINT 

220 PRINT "NUMBER";C; 

238 INPUT N(C) 

248 IF N(C)>1l THEN 270 

250 PRINT "NUMBER MUST BE > 1" 

268 GOTO 210 

278 IF N(C)<1968 THEN 300 

288 PRINT "NUMBER MUST BE < 1600" 

298 GOTO 210 

300 NEXT C 

310 IF K=51 THEN 468 

320 IF N(1)<>N(2)THEN 359 

339 L=N(1) 

348 GOTO 698 

350 IF N(1)<N(2)THEN 390 

368 NN=N(1) 

370 N(1)=N(2) 

388 N(2)=NN 

399 FOR C=1 TO N(1) 

406 IF C*N(2)/N(1)<>INT(C*N(2)/N(1))THEN 430 

418 L=C*N(2) 

428 GOTO 694 

438 NEXT C 

446 L=N(1)*N(2) 

458 GOTO 6924 

468 sw=0 

478 FOR cC=1 TO 2 

480 IF N(C)<=N(C+1)THEN 532 

498 NN=N(C) 
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508 N(C)=N(C+1) 

518 N(C+1)=NN 

5286 sw=1 

538 NEXT C 

549 IF Sw=l THEN 46 

558 FOR C=1 TO N(2) 

560 F=c*N(3) 

576 IF (F/N(1)=INT(F/N(1)))+(F/N(2)=INT(F/N(2)))<> 
-2 THEN 6602 

580 L=F 

599 GOTO 6908 

609 NEXT C 

616 M=N(2)*N(3) 


628 FOR C=1 TO N(1) 

630 F=C*M 

649 IF F/N(1)<>INT(F/N(1))THEN 6792 
650 L=FP 

668 GOTO 698 

678 NEXT C 

689 L=M*N(1) 

699 PRINT ::"LEAST COMMON MULTIPLE IS" 
798 PRINT L 

719 PRINT :: "CHOOSE: " 

728 PRINT " 1 ANOTHER PROBLEM" 

738 PRINT " 2 END PROGRAM" 

748 CALL KEY(@,K,S) 

758 IF K=49 THEN 119 

768 IF K<>58 THEN 746 

778 CALL CLEAR 

788 END 


Equivalent Fractions 

Computers: VIC-20; TRS-80 Color Computer; MC-10; TRS-80 Model I; 
TI-O9/AA 

“Equivalent Fractions’’ can quickly find the unknown in prob- 

lems such as 1/2=?/8. The fractions are of the form: A/B=C/D. 

You first press the letter for the unknown, then enter values 

for the other three numbers as the computer prompts you. The 

equivalent fractions will be printed. 


Program 7-16. Equivalent Fractions 
VIC-20 


118 PRINT" {CLR} " 

128 PRINT TAB(7);"A{5 SPACES}c" 

130 PRINT TAB(7);"-{2 SPACES}={2 SPACES}-" 
149 PRINT TAB(7);:"B{5 SPACES}D" 

158 PRINT:PRINT 
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160 PRINT"“WHICH IS THE UNKNOWN?" 
176 PRINT"CHOOSE A, B, C, OR D" 
1806 GETAS:IF AS=""THEN 180 

199 K=ASC(AS) 

200 IF K<65 THEN 180 

219 IF K>68 THEN 189 

220 PRINT 

230 ON K-64 GOTO 248,350,498, 689 
246 INPUT "ENTER B =";B 

250 IF B<>@ THEN 289 

268 PRINT"B CANNOT = @{DOWN}" 
278 GOTO 242 

289 INPUT "ENTER C =":C 

298 INPUT "ENTER D =";:D 

300 IF D<>@ THEN 330 

318 PRINT"D CANNOT = @{DOwN}" 
328 GOTO 2998 

338 A=INT(100*(B*C/D+.985))/19@ 
349 GOTO 738 

350 INPUT "ENTER A =";A 

368 IF A<>9 THEN 3990 

370 PRINT"SORRY, A<>@{DOWN}" 
388 GOTO 358 

390 INPUT "ENTER C =";C 

400 IF C<>@ THEN 432 

419 PRINT"SORRY, C<>@{DOWN}" 
428 GOTO 398 

439 INPUT "ENTER D =";D 

440 IF D<>g THEN 4790 

450 PRINT"D CANNOT = 8{DOWN}" 
469 GOTO 436 

478 B=INT(100* (A*D/C+.985))/10@ 
488 GOTO 7392 

499 INPUT "ENTER A ="7A 

500 INPUT "ENTER B =";B 

519 IF B<>O@ THEN 542 

520 PRINT"B CANNOT = @{DOWN}”" 
538 GOTO 569 

540 INPUT “ENTER D =";D 

550 IF D<>9 THEN 580 

560 PRINT"D CANNOT = @{DOWN}" 
578 GOTO 542 

580 C=INT(100* (A*D/B+.985))/199 
598 GOTO 730 

608 INPUT "ENTER A =";A 

618 IF A<>@ THEN 642 

628 PRINT"SORRY, A<>@{DOWN}" 
638 GOTO 6980 

648 INPUT "ENTER B =";B 
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658 IF B<>@ THEN 689 

668 PRINT"B CANNOT = 8{DOWN}" 
678 GOTO 642 

689 INPUT "ENTER C =";C 

699 IF C<>@ THEN 720 

708 PRINT"SORRY, C<>@{DOWN}" 
718 GOTO 688 

726 D=INT(190*(B*C/A+.995))/1908 
738 PRINT" {CLR}" 

748 PRINT TAB(4);A,C 

750 PRINT TAB(4);"----- = ----- " 
768 PRINT TAB(4);:B,D 

778 PRINT 

780 PRINT"CHOOSE:" 

798 PRINT" 1 ANOTHER PROBLEM” 
888 PRINT" 2 END PROGRAM" 

818 GET AS 

820 IF AS="1" THEN 112 

830 IF AS$<>"2" THEN 810 

849 PRINT" {CLR}":END 


Program 7-17. Equivalent Fractions 
TRS-80 Color Computer; MC- 10; TRS-80 Model I 

118 CLS 

120 PRINT TAB(19);"A{5 SPACES }c" 

138 PRINT TAB(190);"= = -" 

148 PRINT TAB(18);"B{5 SPACES }D” 

158 PRINT:PRINT 

168 PRINT"WHICH IS THE UNKNOWN?” 

178 PRINT"CHOOSE A, B, C, OR D" 

188 AS=INKEYS:IF AS=""THEN 186 

1986 K=ASC(AS) 

200 IF K<65 THEN 188 

219 IF K>68 THEN 180 


228 PRINT 
238 ON K-64 GOTO 240,358,498, 600 
248 INPUT "ENTER B =";B 


258 IF B<>® THEN 2890 

266 PRINT"B CANNOT = @"“:PRINT 
2768 GOTO 240 

288 INPUT "ENTER C =":C 

298 INPUT "ENTER D =";D 

308 IF D<>S THEN 330 

318 PRINT"“D CANNOT = @":PRINT 
326 GOTO 298 

338 A=INT(100*(B*C/D+.885))/186 
348 GOTO 732 

350 INPUT “ENTER A ="7A 

368 IF A<>S THEN 390 
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376 
386 
398 
496 
419 
426 
430 
440 
456 
460 
476 
480 
496 
589 
518 
526 
530 
549 
558 
560 
578 
588 
596 
609 
614 
620 
630 
640 
650 
669 
678 
68d 
690 
760 
710 
729 
738 
7468 
758 
762 
778 
780 
796 
896 
818 
820 
830 
846 


166 


PRINT"SORRY, A<>@":PRINT 
GOTO 358 

INPUT "ENTER C ="3C 

IF C<>S THEN 430 
PRINT"SORRY, C<>@":PRINT 
GOTO 396 

INPUT "ENTER D ="3D 

IF D<>O THEN 470 

PRINT"D CANNOT = @":PRINT 
GOT0430 

B=INT(100* (A*D/C+.085) )/18@ 
GOTO 732 

INPUT "ENTER A ="3A 

INPUT “ENTER B ="3B 

IF B<>@ THEN 542 

PRINT"B CANNOT = O":PRINT 
GOTO 588 

INPUT "ENTER D ="3D 

IF D<>@ THEN 580 

PRINT"D CANNOT = O":PRINT 
GOTO 542 

C=INT (100* (A*D/B+.005)) /198 
GOTO 732 

INPUT "ENTER A ="3A 

IF A<>@ THEN 640 
PRINT"SORRY, A<>8":PRINT 
GOTO 682 

INPUT "ENTER B =";B 

IF B<>d THEN 680 

PRINT"B CANNOT = @":PRINT 
GOTO 642 

INPUT "ENTER C =";C 

IF C<>@ THEN 720 
PRINT"SORRY, C<>8":PRINT 
GOTO 686 

D=INT(180* (B*C/A+.905) )/180 
CLS 

PRINT TAB(7):A,C 

PRINT TAB(7);“----- 
PRINTTAB(7);B,D 
PRINT 
PRINT"CHOOSE: " 
PRINT" 1 ANOTHER PROBLEM" 
PRINT" 2 END PROGRAM" 
AS=INKEYS 

IF AS="1" THEN 112 

IF A$<>"2" THEN 819 
CLS:END 
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Program 7-18. Equivalent Fractions 
TI-99/4A 

118 CALL CLEAR 

128 PRINT TAB(19);"A{5 SPACES}Cc" 

130 PRINT TAB(10);"-= = -" 

148 PRINT TAB(198);"B{5 SPACES}D"::: 

158 PRINT "WHICH IS THE UNKNOWN?" 

168 PRINT "CHOOSE A, B, C, OR D."s:: 

178 CALL KEY(@,K,S) 

180 IF (K<65)+(K>68)THEN 1708 

198 ON K-64 GOTO 200,318,458, 568 

208 INPUT "ENTER B = ":B 

210 IF B<>O THEN 248 

220 PRINT "B CANNOT = 6":: 

238 GOTO 280 

248 INPUT "ENTER C 

258 INPUT "ENTER D 

268 IF D<>@ THEN 290 

278 PRINT "D CANNOT = O":; 

288 GOTO 258 

298 A=INT(100*(B*C/D+.905) ) /1080 

388 GOTO 6990 

316 INPUT "ENTER A = ":A 

320 IF A<>@ THEN 352 

330 PRINT "SORRY, A<>O":; 

348 GOTO 310 

350 INPUT "ENTER C = ":C 

360 IF C<>@ THEN 390 

376 PRINT "SORRY, C<>O":: 

388 GOTO 35d 

390 INPUT "ENTER D = "sD 

400 IF D<>® THEN 430 

419 PRINT "D CANNOT = @":: 

420 GOTO 398 

438 B=INT(100*(A*D/C+. 905) )/18@ 

449 GOTO 699 

450 INPUT "ENTER A = 

466 INPUT "ENTER B = ":B 

470 IF B<od THEN 500 

489 PRINT "B CANNOT = 6":;: 

499 GOTO 460 

580 INPUT "ENTER D = ":D 

518 IF D<>S THEN 549 

520 PRINT "D CANNOT = O":: 

538 GOTO 580 

540 C=INT(100*(A*D/B+.005))/199 

556 GOTO 6990 

560 INPUT "ENTER A = ":A 

578 IF A<>O THEN 680 


il 
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586 PRINT "SORRY, A<>O"s:: 

598 GOTO 560 

608 INPUT "ENTER B = ":B 

618 IF B<>S THEN 649 

626 PRINT "B CANNOT = O":: 

638 GOTO 689 

648 INPUT "ENTER C = ":C 

658 IF C<>@ THEN 680 

660 PRINT "SORRY, C<>O"s: 

678 GOTO 648 

688 D=INT(100*(B*C/A+. 805) ) /180 
698 CALL CLEAR 

708 PRINT TAB(7);A,C 

718 PRINT TAB(7);"----- = ----- " 
726 PRINT TAB(7);B,D 

730 PRINT ::: “CHOOSE: " 

748 PRINT " 1 ANOTHER PROBLEM" 
758 PRINT " 2 END PROGRAM" 

768 CALL KEY(@,K,S) 

778 IF K=49 THEN 118 

788 IF K<>5@ THEN 760 

798 CALL CLEAR 

890 END 


Simplifying Fractions 
Computers: VIC-20; TRS-80 Color Computer; MC-10; TRS-80 Model I; 
TI-99/4A 


Enter a numerator, then a denominator. The computer simplifies 
or reduces the fraction to its lowest terms, or tells you if it cannot 
be simplified. This algorithm first checks which is larger, the 
numerator or the denominator. The first factor to be checked is 
the smaller number. If either the numerator or the denominator 
is an odd number, even factors will be eliminated by choosing a 
step size of —2 in the checking loop. 

Although you usually reduce fractions starting with the 
smallest factors, the computer starts with the largest possible 
factor and decreases for each check. 


Program 7-19. Simplifying Fractions 
vIC-20 


118 PRINT" {CLR}" 

128 PRINT"SIMPLIFYING FRACTIONS" 
138 PRINT 

148 INPUT "NUMERATOR =[{2 SPACES}";N 
158 INPUT “DENOMINATOR =";D 

160 IF D<>@ THEN 190 

178 PRINT"DENOMINATOR CANNOT = 6" 
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188 GOTO 158 

198 IF N<>@ THEN 2290 

260 PRINT:PRINTN;"/":D;" = 9" 
218 GOTO 398 

220 IF D>N THEN 252 

239 L=D 

249 GOTO 2698 

258 L=N 

268 S=-2 

278 IF D/2<>INT(D/2)THEN 298 
288 IF N/2=INT(N/2)THEN 398 
298 S=-1l 

380 FOR C=L TO 2 STEP S 

318 A=Nn/C 

326 IF A<>INT(A) THEN 358 

338 B=D/C 

340 IF B=INT(B)THEN 3890 

358 NEXT C 

368 PRINT:PRINTN;"/":D:PRINT" CANNOT BE SIMPLIFIED 


378 GOTO 390 

380 PRINT:PRINTN:"/":D:" = "sAz"/"3:B 
398 PRINT" {DOWN} CHOOSE: " 

490 PRINT" 1 ANOTHER PROBLEM" 

410 PRINT” 2 END PROGRAM” 

428 GET AS 

430 IF AS="1" THEN 116 

440 IF AS<>"2" THEN 420 

459 PRINT"{CLR}":END 


Program 7-20. Simplifying Fractions 
TRS-80 Color Computer; MC- 10; TRS-80 Model | 


118 CLS 

129 PRINT"SIMPLIFYING FRACTIONS" 
139 PRINT 

148 INPUT “NUMERATOR = ";N 


15@ INPUT "DENOMINATOR =";D 
168 IF D<>9 THEN 192 

178 PRINT"DENOMINATOR CANNOT = 6" 
188 GoTO 158 

199 IF N<>@ THEN 220 

268 PRINT:PRINTN;:"/":D;" = 9" 
218 GOTO 390 

220 IF DON THEN 256 

238 L=D 

248 GOTO 269 

258 L=N 

268 S=-2 

276 IF D/2<>INT(D/2)THEN 290 
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IF N/2=INT(N/2)THEN 300 


S=-1 

FOR C=L TO 2 STEP S 

A=N/C 

IF A<>INT(A) THEN 352 

B=D/C 

IF B=INT(B)THEN 380 

NEXT C 

PRINT: PRINTN:"/":D;" CANNOT BE SIMPLIFIED" 


GOTO399 

PRINT: PRINTN;:"/":D;" = "“sAs"/":B 
PRINT: PRINT"CHOOSE: " 

PRINT” 1 ANOTHER PROBLEM" 

PRINT" 2 END PROGRAM" 

AS=INKEY$ 

IF AS="1" THEN 1198 

IF A$<>"2" THEN 420 

CLS: END 


Program 7-21. Simplifying Fractions 


118 
129 
130 
142 
159 
169 
178 
18 
199 
200 
218 
220 
236 
240 
258 
260 
270 
289 
290 
300 
310 
320 
338 
349 
350 
360 
378 
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TI-O9/4A 

CALL CLEAR 

PRINT "SIMPLIFYING FRACTIONS":::: 
INPUT "NUMERATOR ={3 SPACES}":N 
INPUT "DENOMINATOR = ":D 

IF D<>S THEN 1808 

PRINT "DENOMINATOR CANNOT = O":: 
GOTO 148 

IF DN THEN 210 

LIM=D 

GOTO 2298 

LIM=N 

S=-2 

IF D/2<>INT(D/2)THEN 250 

IF N/2=INT(N/2)THEN 2698 


=—] 
FOR C=LIM TO 2 STEP S 
A=N/C 

IF A<>INT(A)THEN 310 
B=D/C 

IF B=INT(B)THEN 342 
NEXT C 


PRINT ::N;"/":D;" CANNOT BE SIMPLIFIED" 
GOTO 350 

PRINT oN; "/":D;" = "eA" /"2B 

PRINT ::: "CHOOSE: ” 

PRINT “ 1 ANOTHER PROBLEM" 

PRINT " 2 END PROGRAM" 
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388 CALL KEY(@,K,S) 
398 IF K=49 THEN 118 
466 IF K<>5@ THEN 3890 
418 CALL CLEAR 

426 END 


Multiplying Fractions 
Computers: VIC-20; TRS-80 Color Computer; MC-10; TRS-80 Model I; 
TI-O9/4A 


You can use this program to multiply from two to nine fractions. 
First, press a number key to represent the total number of fractions, 
then enter each numerator and denominator as you're prompted. 
The program multiplies the fractions and simplifies the final 
answer. To simplify fractions, the denominators are arranged in 
order, and the largest denominator is the first factor tried. 


Program 7-22. Multiplying Fractions 
VIC-20 

116 PRINT"{CLR}" 

120 PRINT"MULTIPLYING FRACTIONS" 

138 PRINT" {DOWN}HOW MANY FRACTIONS? "; 

148 GET AS:IF AS=""THEN 149 

150 IF ASC(AS$)<58 THEN 149 

168 IF ASC(AS)>57 THEN 149 

178 PRINTAS 

1890 C=VAL(AS) 

198 NT=1 

208 DT=1 

216 FOR I=l TO C 

226 PRINT" {DOWN} FRACTION"; I 

230 INPUT" NUMERATOR{3 SPACES}";N(TI) 

248 NT=NT*N(I) 

258 INPUT" DENOMINATOR ";D(I) 

268 IF D(I)<>8 THEN 298 

270 PRINT"DENOMINATOR CANNOT = 8" 

288 GOTO 252 

298 DT=DT*D(I) 

300 NEXT I 

318 PRINT"{2 DOWN}** MULTIPLY **{DOWN}" 

329 FOR I=l TOC 

330 PRINTN(I);"/";D(I) 

340 NEXT I 

350 PRINT" REKKkKKKRKRKKkKRRKK MN 

368 FOR I=1 TO C 

376 A=NT/D(L1) 

380 IF A<>INT(A)THEN 430 

398 B=DT/D(I) 
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490 
419 
428 
436 
446 
459 
460 
470 
480 
49G 
588 
518 
528 
539 
549 
558 
569 
578 
588 
59 
690 
610 
620 
639 
640 
659 
669 
670 
680 
696 
708 
719 
720 
738 
749 
758 
7609 
7798 


IF B<>INT(B)THEN 439 
NT=A 

DT=B 

NEXT I 

SW= 

FOR I=l TO C-1l 

IF D(I)<=D(I+1) THEN 519 
DD=D(I) 

D(I)=D(I+1) 

D(I+1)=DD 

SW=1 

NEXT I 

IF SW=l1 THEN 449 
L=D(C) 

FOR I=L TO 2 STEP -1l 
A=NT/I 

IF A<>INT(A)THEN 598 
B=DT/I 

IF B=INT(B)THEN 629 
NEXT I 

A=NT 

B=DT 

IF A>=B THEN 650 
PRINT: PRINTA;: "/";:B 
GOTO 712 

W=INT(A/B) 

R=A-W*B 

IF R<>@ THEN 700 
PRINT W 

GOTO 712 

PRINTW:"{3 SPACES}";R;"/";B 
PRINT" { DOWN} CHOOSE: “ 
PRINT" 1 ANOTHER PROBLEM" 
PRINT" 2 END PROGRAM" 
GET AS 

IF AS="1" THEN 110 

IF A$<>"2" THEN 749 
PRINT" {CLR}":END 


Program 7-23. Multiplying Fractions 


110 
120 
138 
149 
158 
169 
170 
186 
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TRS-80 Color Computer; MC-10; TRS-80 Model | 


CLS 

PRINT"MULTIPLYING FRACTIONS" 
PRINT: PRINT"HOW MANY FRACTIONS?"; 
AS=INKEYS:IF AS=""THEN 140 

IF ASC(AS)<5@ THEN 149 

IF ASC(AS)>57 THEN 148 

PRINTAS 

C=VAL (AS) 
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199 NT=1 

260 DT=1 

218 FOR I=1 TO C 

220 PRINT"FRACTION";I 

238 INPUT" NUMERATOR = ":N(I) 

248 NT=NT*N (TI) 

258 INPUT" DENOMINATOR =";:D(I) 

266 IF D(1)<>@ THEN 290 

278 PRINT"DENOMINATOR CANNOT = 9"“:PRINT 
288 GOTO 258 

298 DT=DT*D(TI) 

308 NEXT I 

318 PRINT: PRINT: PRINT"** MULTIPLY **":PRINT 
320 FOR I=l TO C 

330 PRINTN(I);:"/";D(I1) 

349 NEXT I 


368 FOR I=l1 TO C 

376 A=NT/D(I) 

380 IF A<>INT(A)THEN 4390 
398 B=DT/D(I) 

406 IF RB<>INT(B)THEN 439 
419 NT=A 

426 DT=B 

430 NEXT I 

446 Sw=98 

458 FOR I=1 TO C-l 

460 IF D(I)<=D(I+1) THEN 519 
478 DD=D(I) 

489 D(I)=D(I+1) 

499 D(1I+1)=DD 

588 sw=1 

518 NEXT I 

520 IF SW=l1 THEN 448 

530 L=D(c) 

548 FOR I=L TO 2 STEP -1l 
558 A=NT/I 

566 IF A<>INT(A)THEN 599 
576 B=DT/I 

586 IF B=INT(B)THEN 629 
599 NEXT I 

606 A=NT 

618 B=DT 

626 IF A>=B THEN 6586 

630 PRINT: PRINTA;"/";B 
648 GOTO 710 


658 w=INT(A/B) 
660 R=A-W*B 
670 IF R<>@ THEN 760 
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686 
699 
789 
719 
726 
73 
748 
758 
760 
7708 


PRINT W 

GOTO 719 

PRINTW:"{3 SPACES}";R:"/"3B 
PRINT: PRINT"CHOOSE; " 

PRINT" 1 ANOTHER PROBLEM" 
PRINT" 2 END PROGRAM" 
AS=INKEYS 

IF AS="1" THEN 112 

IF A$<>"2" THEN 740 

CLS: END 


Program 7-24. Multiplying Fractions 


118 
126 
138 
148 
158 
168 
176 
188 
19 
28 
219 
220 
230 
248 
258 
268 
276 
28 
298 
396 
3108 
328 
330 
348 
358 
368 
378 
388 
398 
482 
419 
428 
430 
446 
459 
468 
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TI-99/4A 


CALL CLEAR 

PRINT “MULTIPLYING FRACTIONS": ::: 
PRINT "HOW MANY FRACTIONS?"::: 

CALL KEY(@9,K,S) 

IF (K<5@)+(K>57)THEN 148 

CALL HCHAR(21,23,K) 

C=K-48 

NT=1 

DT=1 

FOR I=l TO c 

PRINT "FRACTION"; I 

INPUT "{4 SPACES]}NUMERATOR ={3 SPACES}":N(I) 
NT=NT*N (I) 

INPUT “{4 SPACES}DENOMINATOR = ":D(I) 
IF D(I1)<>@ THEN 28¢ 

PRINT : "DENOMINATOR CANNOT BE ZERO.":: 
GOTO 249 

DT=DT*D (I) 

NEXT I 

PRINT :::"** MULTIPLY **"s:; 

FOR I=1 T0 c 

PRINT STRS(N(I))3"/":STRS$(D(I) ) 

NEXT I 


FOR I=l TO C 

A=NT/D (1) 

IF A<>INT(A)THEN 420 
B=DT/D(I) 

IF B<>INT(B)THEN 420 
NT=A 

DT=B 

NEXT I 

SWw=8 

FOR I=l1 TO C-l 

IF D(I)<=D(I+1)THEN 582 
DD=D (I) 
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478 D(I)=D(I+1) 

489 D(I+1)=DD 

498 sw=1 

588 NEXT I 

519 IF Svi=l THEN 430 

526 L=D(c) 

538 FOR I=L TO 2 STEP -1 

548 A=NT/I 

558 IF A<>INT(A)THEN 582 

568 B=DT/I 

576 IF B=INT(B)THEN 619 

588 NEXT I 

598 A=NT 

608 B=DT 

619 IF A>=B THEN 642 

620 PRINT ::STRS(A);"/":STRS(B) 
638 GOTO 780 

648 W=INT(A/B) 

650 R=A-W*B 

668 IF R<>O THEN 692 

678 PRINT wW 

689 GOTO 788 

699 PRINT w;"{3 SPACES}":STRS(R);"/";STRS(B) 
768 PRINT ::: "CHOOSE: ":" 1 ANOTHER PROBLEM" 
710 PRINT " 2 END PROGRAM"; 

728 CALL KEY(@,K,S) 

730 IF K=49 THEN 119 

749 IF K<>58 THEN 720 

758 CALL CLEAR 

760 END 


Dividing Fractions 

Computers: VIC-20; TRS-80 Color Computer; MC- 10; TRS-80 Model |; 
TI-9O9/4A 

You enter the numerator and denominator of each fraction, and 

the first fraction is divided by the second. The final answer is 

printed in simplified form. 


Program 7-25. Dividing Fractions 
VIC-20 
119 PRINT" {CLR}" 
120 PRINT"THE FIRST FRACTION IS DIVIDED BY THE" 
130 PRINT"SECOND FRACTION:" 
148 PRINT"(N1/D1) / (N2/D2) {Down}" 
158 INPUT “NUMERATOR 1{SHIFT-SPACE}";N1 
168 INPUT “DENOMINATOR 1 ";Dl 
170 IF D1<>@ THEN 200 
188 PRINT"SORRY CANNOT = 6" 
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176 


GOTO 169 
PRINT 
INPUT "NUMERATOR 2 ";N2 


IF N2<>@ THEN 259 
PRINT"SORRY CANNOT = 9" 
GOTO 218 

INPUT "DENOMINATOR 2 ";D2 
IF D2<>@ THEN 290 
PRINT"SORRY CANNOT 
GOTO 250 

PRINT 

TN=N1*D2 

TD=D1*N2 
PRINTN1;"/";D1 
PRINTER REKKKEKKKEKEEN 


PRINTN2; "/*;D2 


ul 
Q 


PRINT" { DOWN} EQUALS" 
IF Nl<>8 THEN 390 
PRINT"@" 

GOTO 588 

IF TN<TD THEN PL=TN:GOTO 419 
PL=TD 

FOR P=PL TO 2 STEP -1l 
A=TN/P 

IF A<>INT(A) THEN 460 
B=TD/P 

IF B=INT(B) THEN 490 
NEXT P 
A=TN 

=TD 

IF A>=B THEN 529 


PRINTA:"/"3B 

GOTO 58@ 

IF B=l THEN 579 
C=INT(A/B) 

R=A-C*B 

PRINT C:"{2 SPACES}";R;"/";B 
GOTO 589 

PRINT A 

PRINT" {DOWN} CHOOSE: “ 
PRINT" 1 ANOTHER PROBLEM” 
PRINT" 2 END PROGRAM" 

GET AS 

IF AS="1" THEN 110 

IF AS<>"2" THEN 616 
PRINT" {CLR} ":END 
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Program 7-26. Dividing Fractions 


119 
129 
136 
148 
158 


TRS-80 Color Computer; MC-10; TRS-80 Model | 


CLS 

PRINT"THE FIRST FRACTION IS DIVIDED" 
PRINT"BY THE SECOND FRACTION: " 
PRINT" (N1/D1) / (N2/D2)":PRINT 

INPUT “NUMERATOR 1 = ";N1 

INPUT "DENOMINATOR 1 =";D1 

IF Dl<>9 THEN 200 

PRINT"SORRY CANNOT = 0" 
GOTO 162 

PRINT 

INPUT "“NUMERATOR 2 
IF N2<>8 THEN 250 
PRINT"SORRY CANNOT = 9" 
GOTO 216 

INPUT "DENOMINATOR 2 =";D2 
IF D2<>8 THEN 290 
PRINT"SORRY CANNOT 
GOTO 258 

PRINT 
TN=N1 *D2 
TD=D1 *N2 
PRINTN1;"/";D1 
PRINT "----------------- " 
PRINTN2;"/";D2 
PRINT: PRINT "EQUALS" 

IF Nl1<>@ THEN 390 

PRINT"S" 
GOTO 580 

IF TN<TD THEN PL=TN:GOTO 418 
PL=TD 

FOR P=PL TO 2 STEP -1l 

=TN/P 

IF A<>INT(A) THEN 469 

B=TD/P 

IF B=INT(B) THEN 492 
NEXT P 
A=TN 

=TD 

IF A>=B THEN 529 

PRINTA;: "/";B 
GOTO 586 

IF B=l THEN 5786 
C=INT(A/B) 

R=A-C*B 
PRINT C3" ":R:3"/"7B 
GOTO 588 

PRINT A 


ll 
Zz 
N 


u 
Q 
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589 
598 
609 
619 
620 
630 
640 


PRINT: PRINT"CHOOSE: " 
PRINT" 1 ANOTHER PROBLEM" 
PRINT" 2 END PROGRAM"; 
AS=INKEYS 


IF AS="1" THEN 119 
IF A$S<>"2" THEN 610 
CLS: END 


Program 7-27. Dividing Fractions 


119 
120 
139 
149 
150 
169 
170 
186 


TI-99/4A 


CALL CLEAR 

PRINT "THE FIRST FRACTION IS" 
PRINT "DIVIDED BY THE" 

PRINT "SECOND FRACTION." 
PRINT ::TAB(10);"N1/D1" 


PRINT TAB(9);"------- " 

PRINT TAB(19);"N2/D2"::3: 

INPUT "ENTER Nl = “":N1 

INPUT “ENTER Dl = ":Dl 

IF D1l<>9 THEN 230 

PRINT : "DENOMINATOR CANNOT BE ZERO.’ 
GOTO 1904 

PRINT 

INPUT “ENTER N2 = ":N2 


IF N2<>9 THEN 2890 


PRINT "SORRY, CANNOT = 0" 
GOTO 2390 
INPUT “ENTER D2 = "3:D2 


IF D2<>@ THEN 320 


PRINT : "DENOMINATOR CANNOT BE ZERO. ":: 


GOTO 282 

NT=N1 *D2 

DT=D1 *N2 

PRINT :::STRS(N1):"/":STRS(D1) 
PRINT "#-------------- " 
PRINT STRS(N2):"/";STRS (D2) 
PRINT ::: "EQUALS": : 

IF NT<DT THEN 418 

L=DT 

GOTO 428 

L=NT 

FOR I=L TO 2 STEP -l 

A=NT/I 

IF A<>INT(A)THEN 4798 
B=DT/I 

IF B=INT(B)THEN 5992 

NEXT I 

A=NT 
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499 B=DT 

508 IF A>=B THEN 530 

510 PRINT ::STRS(A):"/":STRS(B) 

528 GOTO 620 

530 IF B<>l THEN 560 

549 PRINT ::A 

558 GOTO 6208 

568 C=INT(A/B) 

5708 R=A-C*B 

580 IF R=8 THEN 610 

598 PRINT C:;" “;STRS(R);:"/";STRS(B) 
688 GOTO 620 

618 PRINT Cc 

626 PRINT :::"CHOOSE:":" 1 ANOTHER PROBLEM" 
630 PRINT " 2 END PROGRAM"; 

648 CALL KEY(@,K,S) 

656 IF K=49 THEN 110 

660 IF K<>5@ THEN 640 

678 CALL CLEAR 

688 END 


Adding Fractions 
Computers: VIC-20; TRS-80 Color Computer; TRS-80 Model I; TI-99/4A 


“Adding Fractions” has two main options, adding fractions with 
like denominators, such as 412+ 52+7h2, or adding fractions with 
unlike denominators, such as 42+ 3+ 1%. The program will add up 
to nine fractions with like denominators or up to five fractions 
with unlike denominators. 

If you choose the option of like denominators, first press the 
total number of fractions to be added. Then enter the denomina- 
tor, followed by the numerators. 

If you choose the unlike denominators option, press a num- 
ber key from 2 to 5 for the number of fractions. The numerator and 
then the denominator are entered for each fraction. 

The fractions are added, the problem is rewritten, and then 
the answer is printed in simplified terms. 


Program 7-28. Adding Fractions 
VIC-20 

118 PRINT" {CLR}" 

128 PRINT“ADDING FRACTIONS" 

136 PRINT" {DOWN }CHOOSE: “ 

148 PRINT"] LIKE DENOMINATORS" 

158 PRINT"2 UNLIKE DENOMINATORS" 

166 GET AS 
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179 
189 
198 
206 
218 
226 
239 
249 
258 
268 
278 
289 
290 
380 
319 
328 
339 
349 
3598 
368 
379 
380 
398 
400 
410 
420 
430 
449 
459 
460 
470 
480 
499 
508 
518 
520 
530 
546 
558 
568 
579 
580 
599 
609 
619 
620 
630 
640 
65 
660 
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IF AS$="2" THEN 4190 

IF A$S<>“1" THEN 1606 

PRINT" {CLR}" 

CH=] 

PRINT"ADDING FRACTIONS WITH" 
PRINT"LIKE DENOMINATORS" 
PRINT" {DOWN}HOW MANY FRACTIONS? "; 
GET AS:IF AS="" THEN 248 

IF ASC(AS)<49 THEN 249 

IF ASC(A$)>57 THEN 2498 
PRINTAS 

C=VAL (AS) 

INPUT “DENOMINATOR{2 SPACES}= “:DT 
IF DT<>@ THEN 339 
PRINT"DENOMINATOR CANNOT = 9" 
GOTO 2998 

PRINT" {DOWN}JENTER NUMERATORS" 
NT=2 

FOR I=l1 TO C 

INPUT N(I) 

NT=NT+N (I) 

D(1)=DT 

NEXT I 

GOTO 739 

PRINT" {CLR}" 

PRINT"ADDING UP TO FIVE" 
PRINT"FRACTIONS WHICH HAVE" 
PRINT"UNLIKE DENOMINATORS" 
PRINT" {DOWN}HOW MANY FRACTIONS? "; 
GET AS:IF AS$="" THEN 460 

IF ASC(AS$)<49 THEN 466 

IF ASC(AS)>53 THEN 462 
PRINTAS 

C=VAL(AS) 

NT=0 

DT=1 

FOR I=] TO C 

PRINT "FRACTION" ;I 

INPUT " NUMERATOR{3 SPACES}";N(I) 
INPUT " DENOMINATOR ";D(I) 

IF D(I)<>@ THEN 602 
PRINT"DENOMINATOR CANNOT = 6" 
GOTO 569 

IF I=l THEN 640 

FOR J=l1 TO I-l 

IF D(I)=D(J) THEN 669 

NEXT J 

F=D(I) 

GOTO 670 

F=] 
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676 
689 
698 
768 
716 
729 
738 
749 
750 
769 
776 
788 
798 
890 
819 
820 
8308 
8468 
859 
860 
879 
889 
890 
989 
919 
926 
930 
949 
950 
969 
970 
989 
998 
1986 
1918 
1829 
1836 
1949 
19856 
1969 
1978 
1989 
1998 


DT=DT*F 

NEXT I 

FOR I=l1 TO C 

F=DT/D(I1) 

NT=NT+N(I)*F 

NEXT I 

PRINT" {CLR}" 

PRINT"ADDING FRACTIONS {DOWN }" 
FOR I=1 TOC 
PRINTN(I);3"/";D(I) 

NEXT I 

PRINT "RARE KKKEKEKEEE" 

IF DT>NT THEN 820 

L=DT 

GOTO 836 

L=NT 

=-2 

IF DT/2<>INT(DT/2)THEN 862 
IF NT/2=INT(NT/2)THEN 870 
==] 

FOR I=L TO 2 STEP S 

A=NT/I 

IF A<>INT(A) THEN 929 
B=DT/I 

IF B=INT(B) THEN 959 

NEXT I 

A=NT 

B=DT 

PRINTA;"/"3:B 

IF A<B THEN 1939 

W=INT (A/B) 

R=A-W*B 

IF R<>@ THEN 1820 
PRINT"OR";W 

GOTO 19839 
PRINT"OR":W; "(2 SPACES}";R;3"/"3:B 
PRINT" { DOWN} CHOOSE: " 
PRINT" 1 ANOTHER PROBLEM" 
PRINT" 2 END PROGRAM" 
GET AS 

IF AS="1" THEN 110 

IF AS$<>"2" THEN 1866 
PRINT" {CLR}":END 


Program 7-29. Adding Fractions 


110 
120 
136 


TRS-80 Color Computer; TRS-80 Model ! 
CLS 
PRINT"ADDING FRACTIONS" 
PRINT: PRINT"CHOOSE: “ 
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PRINT" 1 LIKE DENOMINATORS" 
PRINT" 2 UNLIKE DENOMINATORS" 
AS=INKEYS 

IF AS="2" THEN 419 

IF A$<>“"l1" THEN 162 

CLS 

CH=1 

PRINT"ADDING FRACTIONS WITH" 
PRINT"LIKE DENOMINATORS" 
PRINT: PRINT"HOW MANY FRACTIONS? "; 
AS=INKEYS:IF AS=""THEN 246 

IF ASC(A$)<49 THEN 24@ 

IF ASC(AS)>57 THEN 248 
PRINTAS 

C=VAL(AS) 

INPUT “DENOMINATOR = ";DT 

IF DT<>@ THEN 330 
PRINT"DENOMINATOR CANNOT = @" 
GOTO 292 

PRINT:PRINT“ENTER NUMERATORS" 
NT=G 

FOR I=l TO Cc 

INPUT N(L) 

NT=NT+N (TI) 

D(I)=DT 


CLS 

PRINT"ADDING UP TO FIVE" 
PRINT"FRACTIONS WHICH MAY HAVE" 
PRINT"UNLIKE DENOMINATORS" 
PRINT: PRINT"HOW MANY FRACTIONS? "; 
AS=INKEYS:IF AS=""THEN 460 

IF ASC(AS)<49 THEN 460 

IF ASC(AS)?53 THEN 468 
PRINTAS 

C=VAL(AS ) 

NT=O 

DT=1 

FOR I=1 TO C 

PRINT "FRACTION";I 

INPUT " NUMERATOR = ":N(I) 
INPUT " DENOMINATOR =";D(I) 
IF D(1)<>@ THEN 6080 
PRINT"DENOMINATOR CANNOT = 0" 
GOTO 569 

IF I=l THEN 648 

FOR J=l1 TO I-l 


IF D(I)=D(J) THEN 662 
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NEXT J 
F=D (1) 

GOTO 676 

F=1 

DT=DT*F 

NEXT I 

FOR I=1 To Cc 

F=DT/D(I) 

NT=NT+N (I) *F 

NEXT I 

CLS 

PRINT"ADDING FRACTIONS":PRINT 
FOR I=l1 TO C 
PRINTN(I):"/":D(I) 
NEXT I 


IF DT>NT THEN 820 
L=DT 
GOTO 83d 
L=NT 
ST=-2 
IF DT/2<>INT(DT/2)THEN 860 
IF NT/2=INT(NT/2)THEN 876 
ST=-] 
FOR I=L TO2 STEP ST 
=NT/I 
IF A<>INT(A) THEN 9290 
B=DT/I 
IF B=INT(B) THEN 9598 
NEXT I 
A=NT 
B=DT 
PRINTA;"/"3;B 
IF A<B THEN 19398 
W=INT(A/B) 
R=A-W*B 
IF R<>d THEN 1820 
PRINT"OR":W 
GOTO 1839 
PRINT"OR"sW:" "eRe H/2B 
PRINT: PRINT"CHOOSE: " 
PRINT" 1 ANOTHER PROBLEM" 
PRINT" 2 END PROGRAM"; 
AS=INKEYS 
IF AS="1" THEN 119 
IF A$S<>"2" THEN 1869 
CLS:END 
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Program 7-30. Adding Fractions 
TI-99/4A 


118 CALL CLEAR 

128 PRINT "** ADDING FRACTIONS *** 
138 PRINT ::: “CHOOSE: " 

148 PRINT :"1 LIKE DENOMINATORS” 

158 PRINT :"2 UNLIKE DENOMINATORS"::; 
168 CALL KEY(@,K,S) 

176 IF K=58 THEN 419 

188 IF K<>49 THEN 169 

198 CALL CLEAR 

2098 CH=1 

218 PRINT “ADDING FRACTIONS WITH" 

228 PRINT “LIKE DENOMINATORS" 

230 PRINT ::"HOW MANY FRACTIONS?" 

248 CALL KEY(@,K,S) 

258 IF (K<50)+(K>57)THEN 240 

268 CALL HCHAR(23,23,K) 

278 Cc=K-48 

286 PRINT ::"WHAT IS THE DENOMINATOR?" 
298 INPUT DT 

300 IF DT<>d THEN 332 

318 PRINT "DENOMINATOR CANNOT = 6" 

328 GOTO 282 

330 PRINT ::"ENTER THE NUMERATORS":: 
349 NT=O 

350 FOR I=1 To c 

360 INPUT N(I) 

378 NT=NT+N(I) 

388 D(I)=DT 

398 NEXT I 

498 GOTO 720 

418 CALL CLEAR 

420 PRINT “ADDING UP TO FIVE" 

430 PRINT “FRACTIONS WHICH MAY HAVE" 
449 PRINT “UNLIKE DENOMINATORS" 

450 PRINT ::"HOW MANY FRACTIONS?":: 
469 CALL KEY(@,K,S) 

478 IF (K<50)+(K>53)THEN 468 

488 CALL HCHAR(22,23,K) 

499 C=K-48 

500 NT=d 

519 DT=1 

520 FOR I=l1 TOC 

538 PRINT “FPRACTION";I 

549 INPUT "{3 SPACES}NUMERATOR ={3 SPACES}":N(I) 
558 INPUT “{3 SPACES}DENOMINATOR = ":D(I) 
560 IF D(1I)<>® THEN 592 

570 PRINT : "DENOMINATOR CANOT BE ZERO":: 
588 GOTO 550 
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IF I=l THEN 639 
FOR J=1 TO I-1l 
IF D(I)=D(J)THEN 650 
NEXT J 
F=D(I) 
GOTO 6698 
F=1 
DT=DT*F 
NEXT I 
FOR I=l1 TO C 
F=DT/D(I) 
NT=NT+N (I) *F 
NEXT I 
CALL CLEAR 
PRINT "** ADDING FRACTIONS **"s:3 
FOR I=l TO C 
PRINT STRS(N(I));:"/":STRS(D(I) ) 
NEXT I 
PRINT "--------------- Mes 
IF DT>NT THEN 819 
=DT 
GOTO 822 
L=NT 
ST=-2 
IF DT/2<>INT(DT/2)THEN 8598 
IF NT/2=INT(NT/2)THEN 869 
ST=-] 
FOR I=L TO 2 STEP ST 
A=NT/I 
IF A<>INT(A)THEN 919 
=DT/I 
IF B=INT(B)THEN 940 
NEXT I 
=NT 
B=DT 
PRINT STRS$(A);"/";STRS (B) 
IF A<B THEN 18206 
W=INT(A/B) 
R2A-W*B 
IF R<>@ THEN 1810 
PRINT "OR";W 
GOTO 1820 
PRINT :"OR "sW:" "“:STRS(R)3"/":STRS(B) 
PRINT ::"CHOOSE:":" 1 ANOTHER PROBLEM" 
PRINT " 2 END PROGRAM" 
CALL KEY(8,K,S) 
IF K=49 THEN 119 
IF K<>5@ THEN 1849 
CALL CLEAR 
END 
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Simultaneous Equations 
Computers: VIC-20; TRS-80 Color Computer; TRS-80 Model I; TI-99/4A 


You can solve simultaneous equations using the matrix inversion 
technique with this program, which solves up to six equations 
with six unknowns. If you have a computer with more memory, 
you can increase the number of equations by changing the 
DIMension statement and the statement limiting your choice of 
the number of equations. If you have a 40-column or 80-column 
screen, you may wish to change the printing. 

First, you enter the number of equations and unknowns (the 
degree of the matrix). Next, enter the coefficients row by row 
with the corresponding B elements in the matrix of equations 
[A] -[X]=[B]. Here’s an example problem. 

Given three equations with three unknowns: 


X,+ xX,+ x,=2 
2x, + xX, + 3x, = 25 
X, + 3x, + 2x, = 25 
Rewritten in matrix form, this is: 


1 721 1 X, 12 
2 1 3) * |x, = [25 
1 3 2 X, 25 


The group of numbers on the left-hand side of the matrix 
represents A, in the equation [A]*[X]=[B]. A in the equation 
X1 +X2+X3= 12 is always 1, while A in the equation 

2X1 + X2+3x3=25 equals 2, 1, and 3. 

To solve this system using the program, you enter the degree 
of the matrix as 3 for the three equations with three unknowns. 
In order, the following numbers are entered: 

A(1,1)=1 

A(1,2)=1 

A(1,3)=1 

Bl) =12 

A(2,1)=2 

A(2,2)=1 

A(2,3) =3 

B(2) =25 
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A(3,1)=1 
A(3,2)=3 
A(3,3)=2 
B(3)  =25 


Notice that the numbers you enter correspond to the values of A 
you saw in the matrix form of the equation. 


The solution is then printed: 
X(1)=3 
X(2)=4 
X(3)=5 


Program 7-31. Simultaneous Equations 


119 
126 
138 
140 
158 
169 
1768 
189 
198 
289 
219 
229 
239 
240 
259 
260 
270 
289 


290 
358 


368 
370 
389 
398 
409 
410 
42¢ 
436 
449 


456 
460 


VIC-20 
GOTO 240 
REM SUB TO SWITCH ROWS 
FOR C=I+l1 TO N 
IF W(C,1I)=0 THEN 288 
FOR L=1 TO N 
DW=W(I,L):W(I,L)=wW(C,L) :W(C,L)=DW 
NEXT L 
DB=B(1I):B(I)=B(C) :B(C)=DB 
RETURN 
NEXT C 
PRINT" {DOWN}DETERMINANT = 8." 
PRINT"NO UNIQUE SOLUTION. {DOWN}" 
GOTO 748 
PRINT" {CLR}" 
DIM A(6,6),W(6,6),X(6),B(6) 
PRINT"SOLUTION OF" 
PRINT"SIMULTANEOUS EQUATIONS" 
PRINT"MATRIX INVERSION":PRINT"TECHNIQUE TO SOL 
VE 60 
PRINT" [A]J([X] = [B]" 


PRINT" {DOWN}NUMBER OF EQUATIONS ORDEGREE OF MA 
TRIX," \ 
PRINT"N = ">; 

GET IS:IF IS="" THEN 3792 


IF ASC(I$)<58 OR ASC(I$)>54 THEN 3798 
=VAL(IS$):PRINTN 

PRINT" {DOWNJENTER [A] VALUES WITH" 
PRINT" CORRESPONDING [B]" 

PRINT"FOR EACH EQUATION. {DOWN} " 


FOR I=l TO N:FOR J=l1 TON 

PRINT "A("+RIGHTS(STRS(1I),1)+", "+RIGHTS (STRS(J 
),1)+") = “"::INPUT A(I,J) 

W(I,J)=A(I,J):NEXT J 

SRINT "B("+RIGHTS (STRS(I),1)+") = "s: INPUT B(I 
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47 
488 
499 
596 
519 
529 
530 
546 
556 
569 
5708 
586 
590 
606 
619 
6208 
630 
649 
658 
660 
67 
680 
699 
706 
716 
720 
730 
749 


PRINT: NEXT I 

REM INVERT MATRIX A 

FOR I=l1 TO N 

IF w(1,1I)=0 THEN GOSUB 139 
w(I,1)=1/wW(1I,1) 

FOR J=1 TON 

IF J-I=0 THEN 598 
W(J,IL)=wW(J,1)*w(1I,I) 

FOR K=1 TO N 

IF K-I=@ THEN 582 
W(J,K)=W(J,K)-w(J,1I)*w(I,K) 
NEXT K 

NEXT J 

FOR K=l TO N 

IF K-I=8 THEN 636 
W(I,K)=-w(I,1I)*w(1,K) 

NEXT K 

NEXT I 

PRINT" {2 DOWN}SOLUTION VECTOR xX: {DOWN}" 
FOR I=l TO N 

X(I)=8 

FOR J=1 TO N 
X(I)=X(1I)+W(I,J5)*B(J) 

NEXT J 
PRINT"X("+RIGHTS(STRS(I),1)+") = “3X(I) 
NEXT I 

PRINT 

END 


Program 7-32. Simultaneous Equations 


118 
120 
130 
14 
158 
168 
1798 
189 
199 
200 
219 
220 
236 
249 
250 
260 
270 
289 
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GOTO 242 

REM SUB TO SWITCH ROWS 

FOR C=I+l TO N 

IF w(C,1)=0 THEN 200 

FOR L=l1 TO N 
DW=W(I,L):w(I,L)=w(c,L):w(c,L)=DW 
NEXT L 

DB=B(I):B(I)=B(C):B(C)=DB 

RETURN 

NEXT C 

PRINT:PRINT "SORRY, DETERMINANT = 8." 
PRINT "NO UNIQUE SOLUTION. ":PRINT 
GOTO 742 

CLS 

DIM A(6,6),W(6,6),X(6),B(6) 
PRINT"SOLUTION OF SIMULTANEOUS" 

PRINT "EQUATIONS" 

PRINT:PRINT"MATRIX INVERSION TECHNIQUE" 
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290 
380 
316 
326 
330 
349 
356 
368 
378 
389 
396 
460 
410 
420 
438 
446 


450 
468 


478 
486 
496 
588 
519 
526 
538 
548 
559 
568 
578 
588 
599 
690 
619 
620 
6390 
649 
650 
669 
676 
680 
6908 
769 
719 
729 
738 
749 


PRINT"TO SOLVE [AJ[X] = (B]" 
PRINT: PRINT"PRESS <ENTER>" 
IS=INKEYS 

IF I$<>CHR$(13) THEN 319 

CLS 

PRINT"(AJ*({X] = (B]" 

PRINT"PRESS NUMBER OF EQUATIONS OR" 
PRINT"DEGREE OF THE MATRIX, N = "3 
IS=INKEYS:IF IS="" THEN 372 

IF ASC(IS$)<58 OR ASC(IS$)>54 THEN 379 
N=VAL (I$): PRINTN 

PRINT:PRINT "ENTER [A] VALUES WITH" 
PRINT "CORRESPONDING [(B] VALUE" 
PRINT "FOR EACH EQUATION. ":PRINT 


FOR I=1 TO N:FOR J=1 TON 

PRINT "A("+RIGHTS (STRS(I),1)+", "+RIGHTS (STRS (J 
),1)+") = "ssINPUT A(I,J) 

W(I,J)=A(I,J):NEXT J 

PRINT "B("+RIGHTS(STRS(I),1)+") = “zs: INPUT B(I 


PRINT:NEXT I 

REM INVERT MATRIX A 

FOR I=l TO N 

IF W(I,1)=0 THEN GOSUB 1398 
W(I,I)=1/w(I,I1) 

FOR J=l TON 

IF J-I=8 THEN 592 
W(J,I)=w(J,1I)*w(1I,I1) 

FOR K=l1 TON 

IF K-I=8 THEN 589 
wW(J,K)=w(d,K)-w(J,1)*w(1I,K) 
NEXT K 

NEXT J 

FOR K=1 TO N 

IF K-I=8 THEN 632 


W(I,K)=-w(I,I)*w(I,K) 

NEXT K 

NEXT I 

PRINT:PRINT:PRINT “SOLUTION VECTOR X:":PRINT 


FOR I=l1 TON 

X(I)=8 

FOR J=1 TO N 

X(I)=X(I)4+wW(L,J7)*B(J) 

NEXT J 

PRINT "X("+RIGHTS(STRS(I),1)+") = "2X(I) 
NEXT I 

PRINT 

END 
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Program 7-33. Simultaneous Equations 
TI-99/4A 


118 CALL CLEAR 

120 PRINT "SOLVING SIMULTANEOUS" 

138 PRINT "EQUATIONS BY THE" 

140 PRINT "MATRIX INVERSION TECHNIQUE" 
158 PRINT ::"SOLVE [(A](X] = [B]” 

168 PRINT :"ENTER DEGREE OF THE MATRIX" 
178 PRINT "OR NUMBER OF EQUATIONS": : 
188 INPUT "N = ":N 

190 IF N<19 THEN 229 

200 PRINT :"N MUST BE < 10":: 

218 GOTO 188 

228 IF N>l THEN 250 

238 PRINT :"1<N<10{3 SPACES}TRY AGAIN":: 
248 GOTO 180 

258 PRINT ::"THE COEFFICIENTS OF X" 

268 PRINT "ARE THE 'A‘' MATRIX." 

278 PRINT :"INPUT THE VALUES ROW BY ROW: " 
288 PRINT :"A(1,1),A(1,2),A(l, 3), eee" 
298 PRINT "A(2, 1), A(2, 2), A(2, 3),..." 

300 PRINT "."2" "3" " 

310 PRINT “A(N,1),A(N,2),...,A(N,N)"s33 
320 FOR I=l TON 

330 FOR J=l TON 


346 INPUT "A("&STRS(I)&", "&STRS(J)&") = "sA(I,J) 
358 W(I,J)=A(I,J) 

360 NEXT J 

376 PRINT 

388 INPUT "B("&STRS(I)&") = "sB(I) 

398 PRINT :: 

499 NEXT I 


410 PRINT ::"--SOLVING--"s:: 
420 REM INVERT MATRIX A 
430 FOR C=1 TON 

440 IF w(C,C)<>@ THEN 460 
458 GOSUB 718 

460 w(cC,C)=1/w(c,c) 

478 FOR D=1 TON 

488 IF (D-c)=@ THEN 540 
499 w(D,C)=w(D,C) *w(c,Cc) 
5@@ FOR E=1 TO N 

510 IF (E-C)=0 THEN 530 
529 w(D,E)=wW(D,E)-w(D,C) *W(C,E) 
530 NEXT E 

548 NEXT D 

5508 FOR E=1 TON 

560 IF (E-C)=0 THEN 580 
578 w(c,E)=-w(c,C) *w(c,E) 
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588 NEXT E 

590 NEXT C 

600 PRINT ::"SOLUTION VECTOR X:":: 
618 FOR I=l TON 

628 X(1)=0 

638 FOR J=l TON 

648 X(I)=X(I)+W(1I,J)*B(J) 

658 NEXT J 

668 PRINT :"X("ESTRS(I)&") = "?X(T) 
678 NEXT I 

688 PRINT :: 

698 GOTO 878 

766 REM SUB TO SWITCH ROWS 

710 FOR F=C+l TO N 

720 IF W(F,C)=8 THEN 820 

730 FOR E=l TO N 

748 Dw=w(C,E) 

758 w(c,E)=W(F,E) 

768 W(F,E)=DW 

77@ NEXT E 

789 DB=B(C) 

799 B(C)=B(F) 

866 B(F)=DB 

818 GOTO 869 

820 NEXT F 

830 PRINT "SORRY, DETERMINANT=0. " 
840 PRINT "NO UNIQUE SOLUTION." 
858 GOTO 870 

860 RETURN 

878 PRINT :"PRESS 1 FOR ANOTHER PROBLEM" 
880 PRINT TAB(7);"2 TO END PROGRAM" 
899 CALL KEY(@,K,S) 

908 IF K=49 THEN 119 

910 IF K<>5@ THEN 892 

928 CALL CLEAR 

930 END 
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Chapter 8 
Computer Sorting 


One of the functions of a computer is to organize data. You can 
use a sort routine to arrange numbers in ascending or descend- 
ing order or to alphabetize lists. There are many kinds of sort 
routines. Four sorts are presented here. 

To illustrate the procedure, 50 random numbers are gener- 
ated and printed, then sorted. In a regular program you would 
list the actual data to sort, then perhaps call a sort as a subroutine. 

The numbers used in these programs are contained in the A 
array. The DIMension statement at the beginning of the programs 
allow for the 50 numbers of the example. When you place these 
sorts in your own programs, make sure the value n in DIM A(n) 
reflects the total number of items to be sorted. 

These sort programs arrange numbers in ascending order 
(smaller to larger). To change to descending order, change the 
less than signs to greater than signs. To use strings, when you're 
using names as data, for example, put dollar signs after the 
variable names to indicate string variables. 


Bubble Sort 

Computers: VIC-20; TRS-80 Color Computer; TRS-80 Model I; TI-99/4A 
The bubble sort is a simple interchange sort and can be used for 
lists that do not contain many numbers, or for lists in which the 
numbers are not much out of order — it is slow for other uses. 
The program compares each number to the next number and 
exchanges numbers where necessary. If an exchange has been 
made during a pass through all the numbers, the loop of com- 
parisons starts over. 


Program 8-1. Bubble Sort 
VIC-20 
119 DIM A(5@8) 
128 FORI=1T05@:A(1)=INT(100*RND(@)+1):PRINTA(I);::N 
EXT:PRINT:PRINT 
138 L=49 
149 S=@:FORI=l1TOL:IFA(I)<=A(1I+1)THEN169 
158 D=A(1I):A(I)=A(I+1) :A(I+1 )=D:S=1:L=I 
160 NEXT 
178 IFS=1THEN14@ 
188 FORI=1T050:PRINTA(I1);:NEXT 
199 END 
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EE EE ee 


Program 8-2. Bubble Sort 
TRS-80 Color Computer; TRS-80 Model | 
116 DIM A(58) 
128 FORI=1T05@0:A(I )=RND(198):PRINTA(I);:NEXT:PRINT 


: PRINT 
138 L=49 
148 S=0:FORI=l1TOL: IFA(I ) <=A(I+1 )THEN160 
158 D=A(I):A(I)=A(I+1):A(I+1)=D:S=1:L=I 
168 NEXT 


178 IFS=1THEN14@ 
188 FORI=1T050@:PRINTA(I)::NEXT 
198 END 


Program 8-3. Bubble Sort 
TI-99/4A 

118 DIM A(58) 

128 FOR I=1 TO 58 

138 RANDOMIZE 

149 A(I)=INT(RND*1909+1 ) 

158 PRINT A(I); 

168 NEXT I 

1708 PRINT :: 

208 LIM=49 

218 sw=0 

220 FOR I=1 TO LIM 

230 IF A(I)<=A(I+1)THEN 290 

248 AA=A(I) 

258 A(1I)=A(I+1) 

260 A(I+1)=AA 

278 sSw=1 

286 LIM=I 

298 NEXT I 

306 IF Sw=l THEN 210 

500 FOR I=1 TO 58 

519 PRINT A(I); 

520 NEXT I 

538 END 


Shell Sort 
Computers: VIC-20; TRS-80 Color Computer; TRS-80 Model I; TI-99/4A 


The shell sort is considerably faster than the bubble sort because 
the number of comparisons to be made is reduced. 

In an array of N numbers, the program first determines a 
number B so that 2B< N < 2B+1, then initializes B to 2B-1. The 
main loop varies a counter I from 1 to N-B. Within the loop, the 
program checks if A(I) < =A(I+B). If so, it increments I and 
continues the comparisons. If not, it exchanges A(I) and A(I+B) 
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and changes the subscript. When I reaches the value of N, B is 
reduced by a factor of 2 and the loop starts over. When B=0, the 
sort is complete. 

As with the bubble sort, this program generates 50 random 
numbers. To use this sort in your own programs, you'd have to 
enter DATA and have the program READ it into the array. Make 
sure you also change the values throughout the sort routine to 
show the number of items to be sorted. 


Program 8-4. Shell Sort 
VIC-20 
119 DIM A(58) 
120 FORI=1T056:A(1I)=INT(100*RND(@)+1):PRINTA(I)::N 
EXT: PRINT: PRINT 
139 B=1 
140 B=2*B: IFB<=50THENL40 
150 B=INT(B/2) : IFB=8THEN209 
160 FORI=1TO50-B:C=I 
178 D=C+B:IFA(C) <=A(D) THEN19@ 
188 X=A(C):A(C)=A(D) :A(D)=X:C=C-B: IFC>STHEN1 7G 
198 NEXT:GOTO1L5@ 
208 FORI=1T05@0:PRINTA(I);:NEXT 
218 END 


Program 8-5. Shell Sort 
TRS-80 Color Computer; TRS-80 Model | 


118 DIM A(58) 

128 FORI=1T056:A(I )=RND(100):PRINTA(I);:NEXT:PRINT 
:PRINT 

130 B=1 

148 B=2*B:IFB<=59THENL49 

158 B=INT(B/2): IFB=OTHEN29@ 

168 FORI=1T050-B:C=I 

176 D=C+B: IFA(C) <=A(D)THEN199 

188 X=A(C):A(C)=A(D):A(D)=X:C=C-B: IFC>STHEN179 

199 NEXT:GOTO1L5@ 

200 FORI=1T050:PRINTA(I);:NEXT 

218 END 


Program 8-6. Shell Sort 
TI-O9/4A 

118 DIM A(58) 

126 FOR I=1 TO 58 

138 RANDOMIZE 

146 A(I)=INT(RND*109+1 ) 

158 PRINT A(I); 

160 NEXT I 
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178 
200 
219 
220 
238 
249 
258 
269 
270 
289 
298 
368 
316 
329 
330 
340 
358 
568 
519 
520 
539 


PRINT :: 

B=1 

B=2*B 

IF B<=58 THEN 210 
B=INT(B/2) 

IF B=@ THEN 508d 
FOR I=l1 TO 50-B 
Cc=I 

D=C+B 

IF A(C)<=A(D)THEN 3498 
AA=A(C) 
A(C)=A(D) 
A(D)=AA 

C=C-B 

IF C>S THEN 270 
NEXT I 

GOTO 236 

FOR I=1 TO 52 
PRINT A(I); 
NEXT I 

END 


Maximum and Minimum Sort 
Computers: VIC-20; TRS-80 Color Computer; TRS-80 Model I; T!I-99/4A 


This program is also faster than the bubble sort if the numbers 
are mixed up quite a bit. The program goes through all the 
numbers and places the lowest value in the first spot of the array, 
and the highest value in the last spot of the array. Each pass 
through the numbers finds the minimum and maximum of the 
numbers left and places them at the endpoints. 


Program 8-7. Maximum and Minimum Sort 


116 
129 


130 
146 
158 
166 


VIC-20 

DIMA(59) :N=50:S=1 
FORI=1T050:A(1I)=INT(190*RND(@)+1):PRINTA(I);:N 
EXT:PRINT:PRINT 
L=A(S):J=S:U=L:K=S 

FORI=S TO N 

IFA(I)>U THENU=A(I) :K=I 
IFA(1I)<L THENL=A(I) :J=I1 
NEXT 

IFJ=N THENJ=K 

D=A(N) :A(N)=A(K) :A(K)=D:N=N-1 
=A(S):A(S)=A(J):A(J)=D:S=S+1 
IFN>S THEN13@ 
FORI=1T05@:PRINTA(I);:NEXT 
END 
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Program 8-8. Maximum and Minimum Sort 
TRS-80 Color Computer; TRS-80 Model I 


118 DIM A(58):N=50:S=1 

128 FORI=1T050:A(I )=RND(100):PRINTA(I);:NEXT:PRINT 
: PRINT 

130 L=A(S):J=S:U=L:K=S 

148 FORI=S TON 

158 IFA(I)>U THENU=A(I):K=I 

168 IFA(I)<L THENL=A(I):J=I 

170 NEXT 

188 IFJ=N THENJ=K 

198 D=A(N):A(N)=A(K):A(K)=D:N=N-1 

268 D=A(S):A(S)=A(J):A(J)=D:S=S+t1 

218 IFN>S THEN13@ 

228 FORI=1T05@:PRINTA(I);:NEXT 

238 END 


Program 8-9. Maximum and Minimum Sort 
TI-99/4A 


118 DIM A(5@) 

126 N=5d 

138 FOR I=1 TO 5@ 

148 RANDOMIZE 

158 A(I)=INT (RND*1900+1 ) 
168 PRINT A(I); 

178 NEXT I 

188 PRINT :: 

2008 S=1 

218 MN=A(S) 

228 IMIN=S 

238 MX=MN 

249 IMAX=S 

258 FOR I=S TO N 

268 IF A(1I)<=MX THEN 290 
276 MX=A(I) 

288 IMAX=I 

290 IF A(I)>=MN THEN 320 
390 MN=A(I) 

310 IMIN=I 

320 NEXT I 

330 IF IMIN<ON THEN 350 
349 IMIN=IMAX 

350 =A (N) 

368 A(N)=A(IMAX) 

378 A(IMAX)=AA 

389 N=N-1 

398 AA=A(S) 

496 A(S)=A(IMIN) 
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418 A(IMIN)=AA 

426 S=S+l 

430 IF N>S THEN 210 
500 FOR I=1 TO 5@ 
519 PRINT A(I); 

520 NEXT I 

530 END 


Quick Sort 
Computers: VIC-20; TRS-80 Color Computer; TRS-80 Model I; TI-99/4A 


“Quick Sort” can be thought of as a combination of the maximum 
and minimum procedure and the shell sort. It is usually faster 
than either. 


Program 8-10. Quick Sort 
VIC-20 
118 DIMA(5@) 
120 FORI=1T050:A(I)=INT(100*RND(@)+1):PRINTA(I):: 
EXT: PRINT:PRINT 
138 N=58:S(1)=1:S8S(2)=N:T=1 
140 IFT=9THEN260 
158 T=T-1:1I=2*T:L=S(1I+1) :M=S(1I+2) :X=A(L) :J=L:K=M+tl 
168 K=K-1:IFK=J THEN220 
170 IFX<=A(K)THEN16@ 
188 A(J)=A(K) 
198 J=J+l:IFK=J THEN22@ 
200 IFX>=A(J)THEN19@ 
218 A(K)=A(J):GOTO169 
228 A(J)=X: 1FM-J<2THEN24@6 
230 I=2*T:S(I+l )=J+1:S(1I+2 )=M:T=T+1 
240 IFK-L<2THEN14@ 
250 I=2*T:S(I+l )=L:S(I+2)=K-1:T=T+1 :GOTO149 
268 FORI=1TON:PRINTA(I);:NEXT 
278 END 


Program 8-11. Quick Sort 
TRS-80 Color Computer; TRS-80 Model | 
118 DIM A(5@) 
128 FORI=1T050:A(I )=RND(100): PRINTA(L);:NEXT: PRINT 
PRINT 
138 N=56:S(1)=1:8(2)=N:T=1 
140 IFT=O0THEN26@ 
150 T=T-1:I=2*T:L=S(I+l):M=S(I+2):X=A(L):J=L:K=M+1 
168 K=K-1:IFK=J THEN220 
179 IFX<=A(K)THEN16@ 
189 A(J)=A(K) 
198 J=J+1:IFK=J THEN220 
200 IFX>=A(J)THEN19@ 


200 
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218 
220 
236 
249 
259 
260 
276 


A(K)=A(J):GOTO016@ 
A(J)=X: IFM-J <2THEN240 

T=2*T:S(I+l )=J4+1:S(1+2)=<M:T=T+l 
IFK-L<2THEN142 

T=2*7T:S(I+1)=L:S(1+2 )=K-1:T=T+1:GOTO142 
FORI=1TON: PRINTA(I);:NEXT 

END 


Program 8-12. Quick Sort 


119 
120 
138 
146 
158 
169 
178 
189 
199 
286 
219 
220 
230 
249 
250 
269 
2708 


TI-99/4A 


CALL CLEAR 
DIM A(50) 
N=508 
FOR I=l1 TO N 
RANDOMIZE 
A(1I)=INT(RND*10@ )+1 
PRINT A(I):; 
NEXT I 
PRINT 
Ss(1)=1 
S$(2)=N 
T=1 
IF T=8 THEN 520 
T=T-1 
I=2*—7 
L=S (I+1 ) 
M=S (I+2) 
X=A(L) 
J=L 
K=mM+1 
=K-1 
IF K=J THEN 480 
IF X<=A(K)THEN 318 
A(J)=A(K) 
J=I+1 
IF K=J THEN 4996 
IF X>=A(J)THEN 350 
A(K)=A(J) 
GOTO 319 
A(J)=X 
IF M-J<2 THEN 462 
T=2*T 
S (I+1 )=J+1 
S (I+2)=M 
T=T +] 
IF K-L<2 THEN 230 
I=2*T 
S(I+1)=L 
S(I+2)=K-1 
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508 T=T+1 

518 GOTO 238 

528 PRINT 

536 FOR I=1 TON 
549 PRINT A(I): 
559 NEXT I 

560 END 


Test Scores 
Computers: VIC-20; TRS-80 Color Computer; TRS-80 Model |; TI-99/4A 


“Test Scores” illustrates the use of a sort routine in an actual pro- 
gram. Look this over to see how you could use a sort routine ina 
program of your own. 

Students’ scores are shown for three tests, along with a total 
and an average. The total scores are then sorted in descending 
order, and the total, average, and student’s name are PRINTed. 

The DATA statements contain these items separated by com- 
mas: last name, first name, and the scores for three tests. The 
computer READs the last name and first name and prints them 
on the screen. To save memory, the first name, a space, and the 
last name are combined for N$(). Next, the three scores are 
READ and PRINTed. The total is calculated and displayed, and 
the average of the three scores is shown. As the test scores are 
being READ, the class totals S() are also calculated. After the 
individual scores are shown, the average for each test and the 
overall average are displayed. 

To prevent names from scrolling too fast on the screen, a 
line count L keeps track of how much is on the screen. You must 
press ENTER or RETURN to continue. 

The bubble sort is used to arrange the names in descending 
order by total score. In the sort, the >=sign is used instead of 
the < =sign to sort from the largest to the smallest number. 


Program 8-13. Test Scores 
VIC-20 

118 PRINT" {CLR}" 

128 DIMNS$(17),S(2),P(17) 

130 L=8:S(8)=0:S(1)=0:S(2)=8:V=d 

148 FORI=0TO17:READNS(I),FS:PRINTNS(I):", “:FS:NS$( 
I)=FS+" "4+NS(I):P(1I)=8 

158 FORJ=O0T02:READT(J):P(I)=P(1)+T(J):S(J)=S(J)+T( 
J):PRINTT(J)3 sNEXTJ 

168 A=INT(P(1)/3+.5):PRINT"{2 SPACES}";P(1I);:A:V=V+ 
A 

178 L=L+3:IFL=18THENGOSUB489 
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NEXTI 
FORJ=0T02:S(J)=INT(S(J)/18+.5) sNEXT 

PRINT" {DOWN} AVERAGES" :PRINTS(@):S(1);S(2);" 
{3 SPACES}"; INT(V/18+.5) :M=16 

W=0 : FORI=OTOM: IFP(I)>=P(I+1 ) THEN24G 
D=P(I):P(I)=P(I+1):P(I+1)=D:W=1:M=I 

DS=N$ (I) :NS(1)=NS$ (I+1) :N$(I+1)=D$ 

NEXTI 


IFW=1THEN219 
GOSUB489 


FORI=9T017:PRINTP(I); INT(P(1)/3+.5);NS(I) 


NEXTI : GOTO5198 


DATA 


ADAMS, BOB, 91,82, 71 
BROWN, ANDY, 96, 84, 72 
CARSON, GRANT, 94, 79,67 
ELLIS, CINDY, 82, 88,65 
HANSEN, ANGIE, 96,67, 72 
HANSEN, KELLY, 72, 97,65 
JENSEN, ED,88,71,71 
JENSEN, LENA, 71,97, 78 
KENT, RICHARD, 77,73,78 
LARSEN, JOHN, 92,82, 83 
MARTIN, CHERY, 88,71,97 
NELSON, RANDY, 88, 72,99 
ROGERS, BRIAN, 78, 77,98 
SMITH, AURA, 97, 88,64 
SMITH, BILL, 62,67,87 
SMITH, JIM, 64,81, 87 
TAYLOR, JENNY, 77,61,64 
WHITE, LEWIS, 94,65, 94 


L=00:PRINT" {DOWN}PRESS <RETURN>"; 
GETES : LFES <>CHRS (13) THEN49@ 
PRINT" {CLR}":RETURN 

END 


Program 8-14. Test Scores 


119 
129 
138 
149 


158 
160 


170 
189 


TRS-80 Color Computer; TRS-80 Model | 


CLS : CLEAR25@ 

DIMNS (17),S(2),P(17) 
L=9:S(8)=0:S(1)=6:S(2)=0:V=@ 
FORI=9TO17: READNS (1), FS:PRINTNS (1) 
(I)=FS+" “4+N$(1):P(1)=d 

FORJ=0TO2: READT(J):P(I)=P(1)+T(J):S(J)=S(J)+T( 
J):PRINTT(J): :NEXTJ 

A=INT(P(1)/3+.5):PRINT"{5 SPACES}";P(1):A:V=V+t 
A 

L=L+2: IFL=14GOSUB489 

NEXTI 


ea 
a 


"SFS,:NS 
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198 FORJ=9T02:S(J)=INT(S(J)/18+.5):NEXT 

208 PRINT: PRINT"AVERAGES",S(@):S(1)7S(2);" 
{18 SPACES}"; INT(V/18+.5):M=16 

210 W=0:FORI=O8TOM: IFP (I) >=P(I+1 )THEN240 

220 D=P(1):P(L)=P(I+1):P(I+l)=D:W=1:M=I 

230 DS=NS$(I):NS$(1I)=NS$ (I+1):NS$ (I+1)=D$ 

248 NEXTI 

250 IFW=1THEN2190 

260 GOSUB48@ 

276 FORI=9T017:PRINTP(I);INT(P(1I)/3+.5):NS(L) 

288 L=Lt1: IFL=12THENGOSUB48@ 

299 NEXTI:GOTO514 

3898 DATA ADAMS, BOB,91,82,71 

318 DATA BROWN,ANDY, 96,84,72 

328 DATA CARSON, GRANT, 94, 79,67 

338 DATA ELLIS, CINDY, 82,88,65 

348 DATA HANSEN, ANGIE, 96,67, 72 

358 DATA HANSEN, KELLY, 72,97,65 

366 DATA JENSEN,ED,88,71,71 

378 DATA JENSEN, LENA, 71,97,78 

388 DATA KENT, RICHARD,77,73,78 

396 DATA LARSEN,JOHN,92,82,83 

499 DATA MARTIN, CHERY,88,71,97 

418 DATA NELSON, RANDY, 8@,72,99 

420 DATA ROGERS, BRIAN, 78,77,98 

438 DATA SMITH, AURA, 97,80,64 

448 DATA SMITH, BILL, 62,67,87 

459 DATA SMITH,JIM,64,81,87 

468 DATA TAYLOR, JENNY, 77,61,64 

478 DATA WHITE, LEWIS, 94,65, 94 

480 L=@:PRINT:PRINT"PRESS <ENTER>"; 

499 ES=INKEYS$: IFE$ <>CHRS$ (13 )THEN49@ 

589 CLS:RETURN 

510 PRINT: END 


Program 8-15. Test Scores 
TI-99/4A 

118 CALL CLEAR 

128 DIM N$(17),8(2),P(17) 

136 FOR I=@ TO 17 

148 READ NS(I1),F$ 

15@ PRINT :NS(I);:", "FS 

168 NS(1)=FS&" "SNS(T) 

178 P(1)=6 

188 FOR J=@ TO 2 

198 READ T(J) 

200 P(I)=P(1I)+T(J) 

218 s(J)=S(J)+T(T) 

226 PRINT T(J); 


NEXT J 
A=INT(P(I)/3+.5) 
PRINT " “;P(I);A 
V=V+A 


L=L+3 


IF L<21 THEN 300 
GOSUB 7398 


NEXT 


I 


FOR J=8 TO 2 
S(J)=INT(S(J)/18+.5) 


NEXT 


J 


PRINT : "AVERAGES" 
PRINT S(8):S(1):S(2):"{7 SPACES}"; INT(V/18+.5) 


M=16 
w= 


FOR I=0 TO M 

IF P(L)>=P(I+1)THEN 480 
D=P (TI) 

P(I)=P(I+1) 

P(I+1)=D 


Wel 
M=I 


DS=N$ (I) 
N$ (I )=NS$(I+1) 
N$ (I+1)=D$ 


NEXT 


a 


IF W=l1 THEN 379 
GOSUB 730 
FOR I=98 TO 17 


PRINT P(I);:INT(P(I)/3+.5):N$(T) 


NEXT 
GOTO 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


I 
790 
ADAMS, BOB, 91,82,71 
BROWN, ANDY, 96,84, 72 
CARSON, GRANT, 94, 79,67 
ELLIS, CINDY, 82,88, 65 
HANSEN, ANGIE, 96,67, 72 
HANSEN, KELLY, 72,97,65 
JENSEN,ED,88,71,71 
JENSEN, LENA, 71,97, 78 
KENT, RICHARD, 77,73,78 
LARSEN, JOHN, 92,82,83 
MARTIN, CHERY, 88, 71,97 
NELSON, RANDY, 88,72,99 
ROGERS, BRIAN, 78,77,98 
SMITH, AURA, 97,88,64 
SMITH, BILL, 62,67,87 
SMITH, JIM, 64,81,87 
TAYLOR, JENNY, 77,61,64 
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720 DATA WHITE, LEWIS, 94,65,94 
730 L=8 

748 PRINT :“PRESS <ENTER>"s 
75@ CALL KEY(@,K,ST) 

768 IF K<>13 THEN 7504 

77@ CALL CLEAR 

788 RETURN 

798 END 
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Fun in Less Than 4K 


It is possible to design and write games for computers with 
limited memory. You just have to make compromises from time 
to time. Nonetheless, games for such computers as the VIC, the 
Color Computer, and the TI-99 can be graphically entertaining 
and educational. Even with only 4K of memory, the game can 
have plenty of variety, enough to hold even the most avid 
player's attention. 

Almost all the games in this chapter have been translated 
into versions for several computers. Each computer, then, has its 
own listing for you to look at and type in. 

Some of the games, such as “Typing” or “States and Capitals,” 
are teaching games that test your skill and knowledge. Others, 
such as “Defend,” are simply fun to play. There are even games 
that are a cross between the two, such as “Multiplication Invasion,’ 
where the learning takes place in a game setting. Not only are 
the games fun to play, but you'll also learn something as you play. 

There are even two programs, “Bake a Cake” and “Cookie 
File,” which are really not games at all. They’re still fun to type in 
and use, however, so I included them in this final chapter. You 
can use them as recipe holders, or you can alter them to include 
your own unusual recipes. Both have been listed only for the 
VIC-20, so if you have a different computer, you'll have to study 
the program to see if it can be translated to your machine's 
version of BASIC. 


Typing 

Computers: VIC-20; TRS-80 Color Computer; TRS-80 Model | 

The letters on most microcomputer keyboards are in the same 
position as on a standard typewriter. With the capabilities of the 
computer, a learn-to-type program works very well. The graphic 
abilities of a computer can actually draw the hands on the screen, 
with the letters to be typed above the appropriate fingers. 

This program teaches touch typing, using the computer, by 
showing the home position of the fingers — fingers on A, 5, D, FE 
and J, K, L, and ; (: on Commodore computers). An introduction 
is presented, then a random letter drill. For more proficiency, 
there is a drill of actual words using the letters on the home keys. 

Here’s how the program works on the VIC-20: 


Line Function 
2 PRINT title screen. 
3 Turn volume on and define M for sound. 
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6 Define string variables to create graphics. 

8-12 READ from DATA the variables position P, letter P§, 
graphic letter L, and sound S. 

14-16 PRINT instructions. 

18-22 Draw hands. 

24. PRINT letters above appropriate fingers. 

26-30 Wait for any key to be pressed. 

32-48 Perform drill to type a letter as it appears above 
the finger. 

50-56 Clear screen and READ phrases A$ from DATA. 
RESTORE is included to use the DATA again, ignor- 
ing the first 32 items. 

58-80 Perform drill for phrases. A phrase is chosen ran- 
domly. If it is typed correctly, A$(J) is set equal to “” 
so the phrase cannot be used again. If it is typed 
incorrectly, the phrase may be used again. Five 
phrases must be typed correctly to complete the 
drill. 

82-90 PRINT option to practice letters, practice words, or 
end, and branch appropriately. 

92-94 Check letter typed. 

96 Delay loop for music. 

98-104 Wait for RETURN key to be pressed. 

106 Clear screen and END. 

Program 9-1. Typing 

VIC-20 


(In this program, make sure to use abbreviations for all BASIC keywords in the lines 
marked with an asterisk (*). If you don't, the program will not run correctly. Refer to 
Appendix C, “BASIC Keyword Abbreviations,” for the proper abbreviations.) 


*2 PRINT"{CLR}({5 DOWN}":PRINTTAB(8);"TYPING":PRINTT 
AB(8):"{2 DOWN}UNIT 1":PRINTTAB(4):"{DOWN}HOME P 
OSITION" 

POKE36878, 15 :M=36876 


$+" "+GS+FS : IS=G$+FS+" "46S 
FORI=1T08: READP(I),PS$(1I),L(I),S(1I) :NEXT 


4 
6 FS="{RVSIKKJ (OFF}":GS="{RVS} KLI{OFF}":HS=F 
8 
1 


@ DATA8010,A,1,195,7969,S,19, 281, 7949,D,4, 207,797 
4,F,6, 299 

12 DATA7978,9,19, 215, 7959,K,11, 219, 7983,L,12,223,8 
G39,":",58,225 

14 PRINT"{3 DOWN}YOU WILL SEE A DIAGRAMOF THE HAND 


s."™ 


16 PRINT“PLACE YOUR FINGERS ON THE KEYS AS SHOWN." 
: GOSUB98 


210 


Fun in Less Than 4K 


*18 PRINT" {CLR} {RED} {13 DOWN}":PRINTTAB(S):G$:TAB(1 
4);FS:PRINT"{2 SPACES}":HS:SPC(3);I$:PRINT" 
{2 SPACES}";HS$;SPC(3);1$ 

28 FORC=1T04:PRINTGS+HS ;SPC(3);IS+FS :NEXT 

22 PRINT" {RVS}(9 SPACES}{OFF}{3 SPACES}{RVS} 
{9 SPACES} {OFF} {RVS}{9 SPACES} {OFF}{3 SPACES} 
{RVS}(9 SPACES} {OFF}"; 

24 FORC=1T08: POKEM, S(C) : POKEP(C),L(C) : POKEP(C)+307 
20,8:GOSUB96 : POKEM, 8: NEXTC 

26 PRINT" {HOME}{BLU}PLACE YOUR FINGERS IN POSITION 


28 PRINT" {GRN}PRESS ANY KEY TO":PRINT"CONTINUE. " 
38 GETES: IFES=""THEN3@ 
*32 PRINT" {HOME} {BLU}TYPE EACH LETTER AS{3 SPACES}I 
T APPEARS.{4 SPACES}":PRINT"{31 SPACES}" 
34 FORI=1T0O8:POKEP(I),32:NEXT 
36 FORI=1T03 : FORJ=1T0O8: POKEM, S(J):POKEP(J),L(J):GO 
SUB92 :NEXTJ, I 
38 FORI=1T0O39 
48 J=INT(8*RND(@))+1l:IFJ=K THEN4G 
42 K=J:POKEM,S(J):POKEP(J),L(J):GOSUB92 :NEXTI 
44 PRINT" {HOME}CHOOSE: {17 SPACES}1 TRY AGAIN":PRIN 
T° {2 SPACES}2 CONTINUE PROGRAM" 
46 GETES : IFES="1"THEN32 
48 IFES<>"2"THEN46 
50 PRINT" {CLR}":RESTORE: FORI=1T032: READES :NEXT 
52 DATA"A SAD LAD:","A FAD:", "ASK A LAD:",A SAD FA 
D,A LAD ASKS DAD 
54 DATA"ALFALFA:",ALAS A SAD DAD,"DAD ASKS A LAD:" 
, "ASK DAD:" 
56 FORI=1T0O9:READAS (I) :NEXT 
58 FORI=1T05 
69 J=INT(9*RND(O)+1):IFAS(J)=""THEN6S 
*62 PRINT" {CLR} TYPE THE PHRASE":PRINT"THEN PRESS <R 
ETURN>{5 DOWN}":PRINTTAB(3);AS(J):PRINTTAB(3); 
64 BS="":FORK=1T017 
66 GETES: IFES=""THEN66 
68 IFASC(ES )=13THEN72 
78 PRINTES: :BS=BS+ES :NEXTK 
72 IFBS=AS$(J)THEN76 
74 POKEM, 159:GOSUB96 : POKEM, 135 : GOSUB96 : POKEM, 4: PRI 
NT: PRINT" {DOWN} {PUR}{3 SPACES }WRONG" : GOSUB98:GO 
TO6G 
76 FORD=1TOI : POKE7939+D, 83 : POKE7930+D+30728,2:NEXT 
D 
*78 POKEM, 195 :GOSUB96 : POKEM, 297 : GOSUB96 : POKEM, 215:G 
OSUB96 : POKEM, 225 : GOSUB96 : GOSUB96 : POKEM, 8:A$(J)= 


89 NEXTI 
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*82 PRINT:PRINT"{5 DOWN} {BLU}CHOOSE: “:PRINT" 
{2 SPACES}1 PRACTICE LETTERS{4 SPACES}2 PRACTIC 
E WORDS":PRINT"{2 SPACES}3 END PROGRAM" 
84 GETES: IFES="1"THEN18 
86 IFES="2"THEN5Z 
88 IFES="3"THEN19#6 


98 GOTO84 


92 GETES: IFE$<>P$(J)THEN92 

94 POKEM, @:POKEP(J),32:RETURN 

96 FORD=1T099 :NEXT: RETURN 

98 PRINT" {DOWN} {GRN}PRESS <RETURN> {BLU}" 
198 GETES: IFES=""THEN10@ 

192 IFASC(ES)<>13THEN1@@ 

194 RETURN 

196 PRINT" {CLR} {BLU} ":END 


The program's organization is slightly different on the Color 


Computer: 

Line Function 

1-2 READ from DATA position P, letter P§, and sound S. 

3-4 Detect key pressed and compare it with correct letter. 

5-7 PRINT title screen and instructions. 

8-14 Draw hands with letters above appropriate fingers. 

15 Clear letters. 

16-24 Perform drill of typing letters — three times in order 
from left to right, then 30 random letters. A letter 
appears, and you must type it correctly to continue. 

25-27 PRINT instructions, RESTORE DATA and ignore first 
24 items; then READ words and phrases A$ in from 
DATA for next drill. 

28-41 Perform drill of typing words and phrases, which are 
chosen randomly from A$ array. If a phrase is typed 
correctly, A$(L) is set equal to “” (null) so it won't be 
chosen again. You must type five phrases correctly to 
complete the drill. B$ is the phrase you type. 

42-46 PRINT option for more practice or end program, 
branch appropriately, clear screen and END. 

Program 9-2. Typing 


TRS-80 Color Computer; MC-10 


1 FORI=1T08:READP(1I),P$(1),S(1I):NEXT:GOTO5 

2 DATA322,A,89, 261,S, 108, 232,D,125, 267, F,133,276,9 
, 147, 247,K,159, 282,L,178, 349,;,176 

3 ES=INKEYS:IFE$<>P$(J) THEN3 

4 PRINT@P(J)," "::RETURN 
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CLS: PRINT@109, "TYPING": PRINT@295, "UNIT 1":PRINT@ 
265, "HOME POSITION": PRINT@352, "YOU WILL SEE A DI 
AGRAM OF THE" 
PRINT"HANDS. PLACE YOUR FINGERS ON{3 SPACES}THE 
KEYS AS SHOWN.":PRINT:PRINT"PRESS ANY KEY TO ST 
ART." 
ES=INKEYS:IF ES="" THEN 7 
CLS:PRINT"PLACE YOUR FINGERS IN POSITION. ":ES$=CH 
R$ (191 )+CHRS (191):PS=ES+" "+ES+" "+ES+" 

{8 SPACES } "+ES+" "+ES+" "+ES 
PRINT@295,ES$:PRINT@311,E$:PRINT@324, PS: PRINT@356 
»PS:PS=ES+" "“+PS$+" "+ES:PRINT@385, P$:PRINT@417,P 
$:PRINT@449, P$: PRINT@461,ES$;:PRINT@465,ES; 
PS=ES+ES+ES+ES+ES+CHRS (191 ):PRINT@481,PS+" “+ES 
+" "+ES+" “+PS>s 

FORI=1T08: SOUNDS (I), 2:PRINT@P(I),PS$(1I)::NEXT 
PRINT@429, "SPACE"; : PRINT@64, "PRESS ENTER TO CON 
TINUE." 

ES=INKEY$:IF E$="" THEN 13 

IF ASC(E$)<>13 THEN 13 

FORI=1T0O8:PRINT@P(I)," "::NEXT 

PRINT @64, "TYPE THE LETTER AS IT APPEARS." 
FORI=1T03: FORJ=1T0O8: SOUNDS (J), 2: PRINT@P(J),PS(J 

: :GOSUB3:NEXTJ,I1 

FORI=1T030 

J=RND(8):IFJ=L THEN19 

SOUNDS (J), 2:PRINT@P(J),PS$(J); :GOSUB3:L=J:NEXT 
PRINT@S, "PRESS 1 TO TRY AGAIN{1@ SPACES}":PRINT@ 
38, "2 TO CONTINUE": PRINT"{38 SPACES}" 
ES=INKEYS : IFES="2"THEN25 

IFES <>"1"THEN22 

PRINT@S,"{28 SPACES}":PRINT@38, "{13 SPACES}":GOTO 
16 

CLS:PRINT"NOW TRY TYPING WORDS.":PRINT"TYPE THE 

PHRASE SHOWN":PRINT"THEN PRESS ENTER. ": RESTORE 
: FORI=1T024: READES : NEXT 

DATA A SAD LAD;,A FAD;,ASK A LAD;,A SAD FAD,A L 
AD ASKS DAD;,ASK DAD;,ALFALFA;,ALAS A SAD DAD;, 
DAD ASKS A LAD; 

FORI=1T09:READAS (I ):NEXT 

FORI=1T05 

L=RND (9): IFAS (L)=""THEN29 

BS=""s PRINT@298,A$(L):SOUND227,1 

FORJ=1T029 

ES=INKEYS: IFES=""THEN32 

IFASC(ES )=13THEN35 
PRINT@329+J, ES: BS=BS+tES :NEXTJ 

IFBS=AS(L) THEN4@ 

SOUND125, 2: SOUND89, 2: PRINT@416, "WRONG": PRINT@44 
8, "PRESS ENTER" 
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37 ES=INKEYS: IFES=""THEN37 

38 IFASC(ES)<>13THEN37 

39 PRINT@416,"{5 SPACES}":PRINT@448,"{11 SPACES}":I 
=I-1:GOT041 

49 SOUND89, 1:SOUND125,1:SOUND147,1:SOUND176, 2:AS$(L 


41 PRINT@298,"{15 SPACES}": PRINT@330,"{20 SPACES}":N 
EXTI 

42 CLS:PRINT"PRESS 1 MORE PRACTICE ON LETTERS 
{6 SPACES}2 MORE PRACTICE ON PHRASES{6 SPACES}3 
END PROGRAM" 

43 ES=INKEYS: IFES="1"THENS 

44 IPES="2"THEN25 

45 IFES<>"3"THEN43 

46 CLS:END 


“Typing” works this way on the TRS-80 Model I: 


Line Function 

10 Branch past subroutines. 

20 SET points for graphics. 

100-170 Define print position P and letter P$ to print the 
letter above the finger. 

200-210 Check letter typed. If it’s correct, it’s erased. 

300-360 PRINT title screen and instructions. 

490-730 Draw hands on screen. 

750-770 Label fingers with letters. 

780-840 When ENTER is pressed, the labels are cleared. 

845-970 Perform drill to type letters. Letters are presented 
in order from left to right three times, then ran- 
domly for 30 letters. The letter must be typed 
correctly to continue. 

980-1000 PRINT instructions for phrase drill. 

1010-1030 |= READ words and phrases from DATA for A$. 

1040-1220 Perform drill typing phrases. If a phrase has been 
typed correctly, A$(L) is set equal to “” (null) so it 
won't be chosen again. Five phrases must be typed 
correctly to complete the drill. B$ is what you enter. 

1230-1300 = PRINT option to practice more or end program 
and branch appropriately. 

1310 Clear screen and END. 


Program 9-3. Typing 
TRS-80 Model | 
18 GOTO389 
2@ FORJ=BT041:FORI=A TOA+6:SET(I,J):NEXTI,J: RETURN 
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P=642:PS="A":PRINT@P, PS: : RETURN 
P=519:PS="S": PRINT@P, P$;: RETURN 
P=469:PS="D"; PRINT@P, PS; : RETURN 
P=529:PS="F"s: PRINT@P, PS; : RETURN 
P=558:PS="J"': PRINT@P, PS; : RETURN 
P=499:PS="K": PRINT@P, PS; : RETURN 
P=568:PS="L": PRINT@P, P$; : RETURN 
P=701:PS=":":PRINT@P, PS; : RETURN 
ES=INKEYS:IFES$<>P$ THFN29@ 
PRINT@P," "::RETURN 

CLS 

PRINT@218,"T Y P I N G" 

PRINT@469, "UNIT 1: HOME POSITION" 
PRINT@768, "YOU WILL SEE A DIAGRAM OF THE HANDS 


PRINT"PLACE YOUR FINGERS ON THE ‘'HOME' KEYS." 
PRINT:PRINT"PRESS ANY KEY TO START." 
ES=INKEYS: IFES=""THEN36@ 

CLS 

PRINT"PLACE YOUR HANDS IN THIS POSITION ON THE 
KEYS." 

A=2:B=33:GOSUB2@ 

A=12:B=27:GOSUB2@ 

A=22:B=24:GOSUB2@ 

A=32:B=27:GOSUB2@ 

FORJ=42T047 

FORI=2T038:SET(I,J):NEXTI,J 

FORJ=45T047: FORI=42T059 

SET(I,J):NEXTI,J 

FORJ=42T044: FORI=44T05@ 

SET(I,J):NEXTI,J 

A=120:B=33:GOSUB290 

A=1180:B=27:GOSUB20 

A=1900:B=24:GOSUB2@ 

A=90:B=27:GOSUB2@ 
FORJ=427T047 : FORI=98T0126:SET(I,J):NEXTI,J 
FORJ=45T047 : FORI=78T086:SET(I,J):NEXTI,J 
FORJ=42T044: FORI=78T084:SET(I,J):NEXTI,J 

GOSUB199 : GOSUB118:GOSUB129:GOSUB132 

GOSUB149 : GOSUB158: GOSUB169:GOSUB17@ 
PRINT@869, "SPACE BAR"; 

PRINT@64, "PRESS ENTER TO CONTINUE." 
ES=INKEYS: IFES=""THEN79@ 

IFASC(ES ) <>13THEN799 

PRINT@O, "{46 SPACES}" 

P=642 :GOSUB210: P=519:GOSUB219: P=468 :GOSUB2146:P 
=529:GOSUB2190 

P=761:GOSUB210;: P=568:GOSUB21@: P=499:GOSUB219:P 
=558:GOSUB21@4 

PRINT@S, "TYPE EACH LETTER AS IT APPEARS." 
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846 
856 
860 


878 


886 
896 
980 
910 
92 
936 
948 
956 
960 
9768 
988 
990 
1890 


1816 
1926 


1630 
1048 
1050 
1855 
1966 
1676 
1886 
1985 
1696 
1196 
1110 
1128 
1130 
1140 
1150 
1160 
1170 
1186 
1185 
1198 
1195 
1290 
1219 
1220 
1230 
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PRINT" {18 SPACES}" 
FORI=1T03 


GOSUB166 : GOSUB28@ : GOSUB116:GOSUB298 : GOSUB1 28:G 


OSUB208 : GOSUB1 398 : GOSUB28@ 


GOSUB148 : GOSUB20@ : GOSUB15@ : GOSUB286 : GOSUB168:G 


OSUB2988 : GOSUB17@: GOSUB20@ 

NEXTI 

FORI=1T030 

L=RND(8):IFL=L1 THEN9OG 

ONL GOSUB109,110,120,138,140,158,168,17@ 
GOSUB206:L1=L 

NEXTI 

PRINT@O, "PRESS 1 TO TRY AGAIN{14 SPACES}" 
PRINT"{6 SPACES}2 TO CONTINUE" 
ES=INKEYS : IFES="1 "THEN845 

IFES <>"2"THEN96@ 

CLS 

PRINT"NOW TRY TYPING WORDS." . 


PRINT"TYPE THE PHRASE SHOWN THEN PRESS ENTER. 
RESTORE 
DATA A SAD LAD;,A FAD;,ASK A LAD;,A SAD FAD,A 


LAD ASKS DAD;,ASK DAD;,ALFALFA;,ALAS A SAD D 


AD;,DAD ASKS A LAD; 
FORI=1T09: READAS (I ):NEXTI 
FORI=1T05 

L=RND (9): IFAS (L)=""THEN1658 
RS=" a 

PRINT@472,AS (L) 
FORJ=1T02G 

ES=INKEYS: IFES=""THEN1980 
IFASC (ES )=13THFN1120 
PRINT@533+J,ES$ 

BS=BS+E$ 

NEXTJI 

IFBS=A$S(L) THEN1195 
PRINT@832, "WRONG" 
PRINT@896, "PRESS ENTER." 
ES=INKEYS: LFES=""THEN115@ 
IPASC(ES$) <>13THEN115@ 
PRINT@832,"{5 SPACES}" 
PRINT@S96,"{12 SPACES} " 
T=I-1 

GOTO1200 

AS (L ) — 10 80 

PRINT@479,"{15 SPACES}" 
PRINT@534,"{28 SPACES}" 
NEXTI 

CLS 


1246 
1256 
1260 
1278 
1286 
1290 
1308 
1310 
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PRINT"PRESS 1 MORE PRACTICE ON LETTERS" 
PRINTTAB(6);"2 MORE PRACTICE ON PHRASES" 
PRINTTAB(6):"3 END PROGRAM" 

ES=INKEYS 

IFES="1 "THEN496 

IFRS="2 "THEN98 

IFES <>"3"THEN12798 

CLS:END 


Teeth Wisdom 
Computers: VIC-20; TI-99/4A 


“Teeth Wisdom” teaches the names of the teeth — central incisors, 
lateral incisors, cuspids, bicuspids, and molars. The computer 
draws the teeth on the screen with the labels. After you've studied 
the names, press ENTER or RETURN to clear the labels. A quiz 
is given by blinking certain teeth. To answer, you press the num- 
ber corresponding to the name. 

Teeth Wisdom works like this on the VIC: 


Line 
5-6 


Function 

PRINT title screen. 

READ names of teeth in N$ array and create delay. 
Define B$ and C$ strings for use in clearing labels. 
Turn on volume and set S equal to a speaker value 
for sounds. 

PRINT instruction screen. 

Change screen color to pink. 

Draw and label teeth. 

Wait for RETURN to be pressed before continuing. 
Clear labels. 

PRINT “NAME THE TEETH”. 

Set elements of W§ array equal to element of N$ 
array. 

Randomly list names of teeth. 

Perform quiz. 

Randomly choose teeth. 

Blink appropriate teeth while waiting for response. 
If answer is incorrect, play sound and return for 
another response. 

If answer is correct, play appropriate music, set 
A(I)=0 so tooth will not be chosen again, and go to 
next problem. 

PRINT option to try again and branch appropriately. 
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74-76 If answer is Y for yes, clear previous list of answers 


and branch to beginning of quiz. 


80-89 Blink teeth by POKEing memory locations with 


92 


color numbers. 
Delay loop for sounds. 


94-97 Wait for RETURN key to be pressed before continu- 


99 
100 


ing program. 
DATA containing names of teeth. 
Clear screen, return to normal screen and border 


colors, and END. 


Program 9-4. Teeth Wisdom 


VIC-20 


(In this program, make sure to use abbreviations for all BASIC keywords in the lines 
marked with an asterisk (*). If you don’t, the program will not run correctly. Refer to 
Appendix C, “BASIC Keyword Abbreviations,” for the proper abbreviations.) 


5 PRINT" {CLR} {BLU} {4 DOWN} {2 SPACES} **** kk kRKR KKK 
**" sPRINT" {SHIFT-SPACE} *";SPC(14);"*":PRINT" 


{ 


2 SPACES}* TEETH WISDOM *" 


PRINT" {2 SPACES}*":SPC(14);"*"s:PRINT"{2 SPACES }* 
KREekKkKkKkKkk KKK KN 


FORC=1T05 : READNS (C) :NEXT : FORC=1 T0900 : NEXT 


POKE36878,15:S=36876 


18 


29 


22 
*30 


32 
35 
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6 
7 
8 BS="{16 SPACES}":CcS="{18 SPACES }" 
9 
1 


PRINT" {CLR}{2 DOWN}YOU WILL SEE A DIAGRAMOF THE 
TEETH WITH THE NAMES OF THE TEETH." 

PRINT" {DOWN}WHEN YOU KNOW THE{5 SPACES]}NAMES, P 
RESS <RETURN>." 

PRINT" {DOWN}THE LABELS WILL CLEAR AND YOU WILL 
{SPACE}BE GIVEN A QUIZ.":PRINT"{3 DOWN} {GRN}PRE 

SS RETURN{BLU}":GOSUB94 

POKE36879, 169 

PRINT" {CLR} {DOWN}":PRINTTAB(4);"CENTRAL INCISOR 
S":PRINTTAB(4);"T":PRINTTAB(4);"TRAJLATERAL I 
NCISORS{2 SPACES) {WHT }ZQQZ" — 

PRINT" 2{4 SPACES }Z{BLU] **CUSPIDS":PRINT" 
{WHT}A";SPC(6);"A TBLU}I™: PRINT" {WHTJA";SPC(6); 
"A {BLU}KBICUSPIDS" 7 

PRINT" {WHT }X";SPC(6);:"X {BLU} I":PRINT" {WHT}X":S 
PC(6);"X {BLU} £QJ*MOLARS": PRINT" {WHT}X";SPC( 
6)3"xX {BLU} K" — 

PRINT"{3 DOWN} {GRN}]PRESS RETURN" :GOSUB94 

PRINT" {UP}";B$:PRINT"{HOME}{2 DOWN}{4 SPACES}"; 
BS:PRINT"{5 SPACES}":PRINT"{6 SPACES}":B$:PRINT 
TAB(7);CS:PRINTTAB(9);" ":PRINTTAB(9);CS$ 
PRINTTAB(9);" “s:PRINTTAB(9);CS:PRINTTAB(9);" " 
PRINT" {DOWN} {BLU}NAME THE TEETH{DOWN}" 
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4G FORC=1T05:W$(C)=N$(C) sNEXT 

42 FORC=1T05 

44 I=INT(5*RND(@)+1) 

46 IFWS(1I)=""THEN44 

48 PRINTC;WS(I) :A(I)=C:WS(I)="":NEXTC 

58 FORC=1T05 

52 I=INT(5*RND(@)+1) 

54 IFA(1I)=@THEN52 

56 ON I GOSUB8@,82,84,86,88 

58 GETAS : ILFAS=""THEN56 

68 IF ASC(AS)=A(1)+48THEN 65 

62 POKES, 159:GOSUB92: POKES, 135:GOSUB92 : POKES, 8:GOT 
056 

*65 POKES, 195 :GOSUB92 : POKES, 207 :GOSUB92 : POKES, 215:G 

OSUB92 : POKES, 225 : GOSUB92 : GOSUB92 : POKES , @:A(I)=0 

66 NEXTC 

78 PRINT" {DOWN} {GRN]TRY AGAIN? (Y/N) {BLU}"; 

72 GETAS : IFAS="N"THEN1O@ 

74 IFAS<>"yY"THEN72 

76 PRINT"{7 UP} {BLU}":FORC=1TO7:PRINTBS;" 
{3 SPACES}":NEXT:PRINT"{8 UP}":GOTO49 

88 POKE38513,2:POKE38514, 2: POKE38513,1:POKE38514,1 
¢s RETURN 

82 POKE38512,2:POKE38515,2:POKE38512,1:POKE38515,1 
: RETURN 

84 POKE38533,2:POKE38538, 2: POKE38533,1:POKE38538,1 
: RETURN 

*86 POKE38554, 2:POKE38561, 2: POKE38576, 2: POKE38583, 2 

: POKE38554, 1: POKE38561, 1: POKE38576, 1: POKE38583, 
1:RETURN 

88 POKE38598, 2: POKE38605, 2: POKE38620, 2: POKE38627, 2 
: POKE38642, 2: POKE38649, 2 

89 POKE38598,1:POKE38605, 1:POKE38620, 1: POKE38627,1 
: POKE38642, 1 : POKE38649, 1:RETURN 

92 FORD=1TOL5@:NEXT: RETURN 

94 FORD=1T010:GETAS :NEXT 

95 GETAS: IFAS=""THEN95 

96 IF ASC(AS)<>13THEN9S5 

97 RETURN 

99 DATACENTRAL INCISORS, LATERAL INCISORS,CUSPIDS,B 
ICUSPIDS , MOLARS 

100 PRINT" {CLR}":POKE36879,27:END 


Here's the explanation for the TI version: 


Line Function 

110-170 Clear screen and PRINT title screen. 

180-230 Define graphics characters and blink asterisks 
on screen. 


240-330 DATA containing graphics definitions. 
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340-360 
370-390 
400-510 
520-560 


570 


580-690 
700 


710-760 


770 
780-850 


860-1060 
870-880 
890-920 
930-940 
950-990 
1000-1030 
1040 
1050-1060 
1070-1100 
1110-1140 
1150 


1160-1190 
1200-1210 
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Define color sets 9 through 13 as white on light red 
for teeth. 

Define color sets for light red on transparent for 
graphics surrounding teeth. 

Clear screen, PRINT instructions, and define 
strings as groups of characters for later printing. 
READ in names of five groups of teeth as N$ array 
and set the W$ array elements equal to the N$ 
array elements. 

PRINT message to press ENTER and wait for 
response. 

Clear screen and PRINT teeth with labels. 

PRINT message to press ENTER and wait for 
response. 

Clear message and labels. 

PRINT quiz title. 

Randomly PRINT names of teeth on screen from 
the W§ array. A(1) will be the correct correspond- 
ing answer. 

Perform quiz. 

Randomly choose teeth. 

Blink teeth blue and white while waiting for 
response. 

If number 1-5 is pressed, show which number was 
pressed; otherwise, return to line 890. 

If answer is incorrect, play sound effect and return 
for another response. 

If answer is correct, play music. 

Clear answer chosen. 

Set element A to zero so tooth will not be chosen 
again and return for next problem. 

PRINT option to try again, wait for response, and 
branch appropriately. 

If you want to try again, set W$ array elements 
equal to names of teeth and branch to beginning 
of exercise. 

Stop. 

PRINT “PRESS ENTER’ and wait for response. 
Clear screen and END. 
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Program 9-5. Teeth Wisdom 
TI-99/4A 

118 CALL CLEAR 

120 PRINT TAB(4) "RRR HKEHRREKEKK KR KN 

130 PRINT TAB(4);"*"sTAB(21);"*" 

148 PRINT TAB(4);"* TEETH WISDOM *" 

158 PRINT TAR(4);"*":TAR(21);"*" 

160 PRINT TAB(4) ¢ VERRERKEKEKHHEKEKKREE, 5028s 

170 PRINT ::: 

188 FOR C=94 TO 157 

198 CALL COLOR(2,13,1) 

208 READ cS 

218 CALL CHAR(C,C$) 

228 CALL COLOR(2,16,1) 

238 NEXT C 

248 DATA S88009G1F1010191 , BOBOBOFF 

250 DATA OOOOOF1LF3F7F7F7F ,O@86O83C7C7E7EFEF , SOOGEOF 
S6FS8FCFEFE, FFFFFFFFFFFFFFFFF, EFEFEFEFEFEFEFEF,@ 
| an 

260 DATA 79F8FCFCFEFEFEFF, FEF8C, OE1F3F3F7F7F7FFF, 7 
F1FO3,,,, , OPOOBSOSOOSHOOAFS, O191810190181, FCFEFF 
FFFEFCF83 

278 DATA OOLGCHOOSOGSSOGO1F, 3F7FFFFF7F3F1F0C, 89808088 
0888,,,OF1F1F1F1FIFGOE, EOFSFSFSFSFSF,O071F1F1FI1F 
1FOF 

286 DATA FOFSFSFS8F8F87, LF3F3F3F3F3F1F,FOF8F8F8F8F8 
F,OFIFIFIFILFILFOF, FBFCFCFCFCFCF8, 7FFFFFFFFFFF/7F 

298 DATA EOFOFSFOFOFGE, O70FOFOFOFOFO7, FEFFFFFFFFFF 
FE , 0©303030303030301, FFFFFFFFFFFFFFFF ,C8C8COCBC 
6coces,"" 

300 DATA FFFFFCFSEOCO8, FFFF7E181, FFFF3FOF0706301,FF 
FEFEFCFCF8F8F8, FF7F7F3F3F1F1F1F, FOFOFOFOFOFOFO 
F 

319 DATA OFOFOFOFOFOFOFOF, EGEGEDGEGCOCHU8G8 , 87078707 
830301801 , GOSOOSCOOOGTIFFF , QSOUSOOZ1FFFFFFFFF, OOF 
FFFFFPFFFFFFFFF 

320 DATA OSSOOCOFSFFFFFFFF , SUPOOSOOOO7TOFSFF ,G1O7OF1 
F3F3F7FFF , 8OEOFOFSFCFCFEFF, 0101030383079 70F, 8 
SSCOCOCOEGESF 

339 DATA OFOFIFIFIF3F3F3F, FOFOFSFS8F8FCFCEC, 3F7F7F7 
F7F7P7F7F7F, FCFEFEFEFEFEFEFE 

348 FOR C=9 TO 13 

358 CALL COLOR(C,16,16) 

360 NEXT C 

378 CALL COLOR(14,19,1) 

388 CALL COLOR(15,10,1) 

398 CALL COLOR(16,10,1) 

400 CALL CLEAR 

416 CALL COLOR(2,2,1) 

420 PRINT "YOU WILL SEF A DIAGRAM OF" 
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438 PRINT :"THE TEETH WITH THE NAMES" 

448 PRINT :“OF THE TEETH." 

459 AS=CHRS (128) &CHR$ (129) 

460 BS=CHR$ (138) &CHR$ (131) 

476 PRINT ::"WHFN YOU KNOW THE NAMES, " 

488 PRINT :"PRESS <ENTER>." 

498 DS=CHRS$ (132) &CHRS$ (133) &CHR$ (134) 

598 PRINT ::"THE LABELS WILL CLEAR AND" 

510 PRINT :“YOU WILL BE GIVEN A QUIZ."s:::3 

528 FOR C=1 TO 5 

530 READ N$(C) 

548 w$(C)=N$(C) 

558 NEXT C 

56@ DATA CENTRAL INCISORS,LATERAL INCISORS,CUSPIDS 
, BICUSPIDS, MOLARS 

578 GOSUB 1169 

580 CALL CLEAR 

598 PRINT TAB(8);"" CENTRAL INCISORS" 

699 PRINT TAB(5);CHR$(145) &CHRS (146) &CHR$ (147) &CHR 
$ (148 ) &CHRS (149) 

616 PRINT TAB(4);CHRS$(150);"e abe";CHR$(151)7;"__ LA 
TERAL INCISORS" 


628 PRINT " ";CHRS$(158);"phcdcjs";CHRS$ (151) 

630 PRINT " ";CHR$(152);"qrieeektu";CHRS$ (153); "CUS 
PIDS" 

649 PRINT " ":CHRS(154):"xyeeeeez{";CHRS$(155);"BIC 
USPIDS" 

650 PRINT " ":CHRS(156);"/{, }e":CHRS (136) &CHRS (137 
) &CHRS (138): "ef, }":CHRS$ (127) &CHRS (157) 

668 PRINT " e":A$;:CHRS$(139);" "eCHRS (140):BS:"e" 
: "MOLARS" 

678 PRINT " e"sAS$S:CHRS$(141):" "eCHRS (142):BS;:"e" 

688 PRINT " ":DS;:CHRS(143);" "sCHRS (144);:D$ 

698 PRINT " eee eee"s33 


786 GOSUB 1168 

716 CALL HCHAR(23,16,32,13) 
728 CALL HCHAR(10,18,32,18) 
738 CALL HCHAR(12,13,32,18) 
748 CALL HCHAR(14,15,32,7) 
75@ CALL HCHAR(15,15,32,9) 
768 CALL HCHAR(17,15,32,6) 
778 PRINT TAB(8);"NAME THE TEETH": : 
788 FOR C=1 TO 5 

798 RANDOMIZE 

806 I=INT(5*RND+1 ) 


819 IF w$(I)="" THEN 890 
828 PRINT TAB(9);C;wS (TI) 
838 A(I)=c 

849 w$(I)="" 
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NEXT C 

FOR C=l1 TO 5 
I=INT(5*RND+1 ) 

IF A(I)=0 THEN 878 
CALL KEY(98,K,S) 
CALL COLOR(I+8,6,10) 
CALL COLOR(I+8,16,10) 

IF S<l THEN 890 

IF (K<49)+(K>53)THEN 890 
CALL HCHAR(18+K-48, 11,62) 
IF K-48=A(I)THEN 1062 
CALL SOUND(159,330,@) 
CALL SOUND(15@, 262,98) 
CALL VCHAR(19,11,32,5) 
GOTO 8990 

CALL SOUND(15@, 262,98) 
CALL SOUND(150,338,0) 
CALL SOUND(158,392,0) 
CALL SOUND(2800,523,0) 
CALL VCHAR(19,11,32,5) 
A(I)=0 

NEXT C 

PRINT ::"TRY AGAIN? (Y/N)" 
CALL KEY(@,K,S) 

IF K=78 THEN 1200 

IF K<>89 THEN 1980 

FOR C=l1 TO 5 

WS (C )=N$ (Cc) 

NEXT C 

GOTO 580 

STOP 

PRINT TAB(14);"PRESS <ENTER>" 
CALL KEY(%,K,S) 

IF K<>13 THEN 1179 
RETURN 

CALL CLEAR 

END 


In this program, you'll see spaces between quotation marks, 


such 


as “ ”. Type in the quote marks and press the space bar the 


correct number of times. If it’s hard to tell how many spaces to 
enter, you can use the line above as a reference. For example, in 
line 690, you can tell that five spaces are needed between the e’s 
by counting the characters in line 680 directly above the gap. 


Bake a Cake 
Computer: VIC-20 


Baking a cake, but you don’t have a recipe? Here’s a program for 


223 


Fun in Less Than 4K 


the VIC-20 that will help. The program contains recipes for 
several cakes. You can select the recipe, see it on the screen, and 
even enlarge or reduce it. If you would like to enlarge the recipe 
enter a number such as 3 to triple the recipe. To reduce it, enter a 
decimal fraction, such as .5 to halve the recipe. The converted 
recipe will then appear on the screen. 

You don't know what to make? Select the ingredient list. As 
the inventory is listed, press Y for yes if you have the ingredient 
or N if you don't. After the inventory list is complete, the computer 
will tell you which recipes you can make, given that inventory. 

For convenience in programming, the amounts in the recipes 
are given in decimals. For example, 74 cup sugar is written as 
.67 c. sugar. 

The DATA statements in lines 101-107 contain the measure, 
then the ingredient for 25 ingredients. Line 3 READs A$, the mea- 
sure, and B$(N,0), the name of the ingredient, then assigns I$(N) 
equal to the measure plus a space plus the ingredient name. B$ 
is used in the inventory list, and I$ is used in printing the recipe. 
Z is the number of ingredients, minus one (because the subscripts 
start with the number zero). 

As you are typing the DATA statements, you may notice two 
or more commas together with nothing between them (,,,). Be 
sure to get the right number of commas as you are typing. The 
commas indicate a null string, or a string variable equal to “”. 

The recipes are in the DATA statements in lines 109-123. The 
first item is the name of the cake. The next items are the amounts 
of the ingredients in the following order: 


cups shortening number of eggs 

cups flour number of egg whites 
cups sugar tsp. red food coloring 
cups brown sugar ounces chocolate 

tsp. baking powder tbsp. cocoa 

tsp. salt tsp. vanilla 

tsp. soda tsp. cinnamon 

cups cherry juice tsp. nutmeg 

number of cherries tsp. vinegar 

cups bananas (mashed) cups salad oil 

cups sauerkraut cups water 

cups milk cups oatmeal 


cups buttermilk 


The DATA will contain a null string if the cake does not contain 
that ingredient. 
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An example is the first part of line 109, the data for Banana Cake: 
DATA BANANA, 67,2.5,1.67,,1,1,1,,,1,,, 0) TE 
The name of the cake is BANANA. The recipe is .67 cup shortening 
(two-thirds), 2.5 cups flour, 1.67 cup sugar, 1 tsp. baking powder, 
1 tsp. salt, 1 tsp. soda, 1 cup mashed bananas, .67 cup buttermilk, 
and 2 eggs. 

To print a recipe, the data is RESTOREd first, then the first 50 
ingredients and measures are read and ignored (line 73). The key 
you press to choose a recipe is E$; the ASCII code will be 65 for 
A, 66 for B, and so on. Lines 75-77 figure out which recipe was 
chosen and read through the title and ingredients to get to the 
appropriate recipe. Line 79 PRINTs the title of the cake. Line 81 
READs the amount from the DATA statement. If the amount is a 
null or zero, that ingredient is not PRINTed. However, if there is a 
value, the value is shown. The corresponding measure and name 
of the ingredient are READ from the I$ array. 

Line 83 defines variables M(I) for measure and C§(I) for ingre- 
dient for only those ingredients in the recipe. These values are 
used in printing the converted recipe, lines 97-99. 

For the inventory list, the computer keeps track of your Y or 
N answers in the BR(N,1) array, where N varies from 0 to 24 for 
the ingredients. Line 33 checks to see if an N is stored as a no 
answer for flour, sugar, or salt. If any one of these three items 
has a no, no cakes can be baked. Y is a variable for the number of 
Y¥ answers; if there are not enough ingredients with a Y answer, 
you cannot make a cake (checked in line 35). 

Line 47 RESTOREs the DATA, then ignores the first 50 items. 
Lines 49-51 check through the recipe for each cake. If there is an 
amount listed for an ingredient, the corresponding B§(N,1) value 
is checked. If it is N for no, you are lacking one of the ingredients 
required for the cake. The rest of the ingredients are skipped over, 
and the computer goes to the next recipe. If each of the required 
ingredients also has a B§ value of Y for yes, the cake can be made 
and the name of the cake is printed. 

These are real recipes that really work. No baking instructions 
are given because there isn’t room in the VIC version, but usually 
the person baking knows how to bake the cake and just needs 
to be reminded of the amount of each ingredient. In case you 
want to try these recipes, all of these recipes are for cakes to be 
baked in two 9-inch layers. Mix the shortening with the sugars, 
add the dry ingredients alternately with the liquid, and then add 
the eggs and vanilla. Bake at 350° to 375°. 
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In the cherry cake, cut up the cherries before adding to the 
mixture. For the oatmeal cake, first boil the water, and then add the 
oatmeal. Let that mixture cool while you mix everything else — 
add the oatmeal mixture last. The “wacky” cake you can mix all 
at once — just dump everything into one big bow] and mix it up. 
For the red velvet cake, combine the ingredients as usual, except 
for the vinegar and soda. Mix the vinegar and soda together and 
fold into the rest of the batter. The sauerkraut is a moist chocolate 
cake — just don't tell anyone what it is until after they've eaten it. 
Rinse the sauerkraut well, then chop it into small pieces before 
combining it with the rest of the cake batter. 

This program comes very close to filling all the available memory. 
As with other VIC-20 programs in this book, be sure to use the 
abbreviations for all the BASIC words, such as ? for PRINT and 
D SHIFT A for DATA in the lines marked with the asterisk. 

Be sure you copy the DATA statements exactly for the correct 
recipes. There are no spaces except in the names of the cakes. If there 
are commas together, do not put spaces between the commas. 


Program 9-6. Bake a Cake 

VIC-20 
(In this program, make sure to use abbreviations for all BASIC keywords in the lines 
marked with an asterisk (*). If you don't, the program will not run correctly. Refer to 
Appendix C, “BASIC Keyword Abbreviations,” for the proper abbreviations.) 


1 DIMI$(24),B$(24,1),M(11),C$(11):Z=24 
3 FORN=0TOZ:READAS,BS(N,@) :IS(N)=AS+" "+BS(N,@):NE 
XT 
5 PRINT" {CLR} {BLU} {5 DOWN} {5 RIGHT}BAKE A CAKE" 
7 PRINT"{2 DOWN}CHOOSE: “":PRINT" {DOWN} 1 NEED TO KN 
OW":PRINT"{3 SPACES}WHAT CAN BE MADE." 
9 PRINT" {DOWN} 2 WANT TO SEE":PRINT"{3 SPACES}A CE 
RTAIN RECIPE":PRINT" {DOWN} 3 END PROGRAM" 
ll GETES : IFES="3"THEN299 
13 IFES="2"THEN61 
15 IFES$<>"1"THEN11 
17 PRINT"{CLR}{BLU]IN THE FOLLOWING LIST PRESS 'Y' 
IF YOU HAVE THE INGREDIENT, " 
19 PRINT"'N' IF YOU DO NOT.{4 SPACES}PRESS 'S' TO 
{SPACE}START{4 SPACES}OVER.{2 DOwN}" 
21 Y=0:FORN=9TOZ:PRINTBS(N,@);"{2 SPACES} (RED}-- 
{BLK}"; :GOSUB152 
23 GETES : IFES="S"THEN17 
25 IFES="N"THENPRINT"N({ BLU }":GOTO31 
27 IFES<>"Y"THEN23 
29 PRINT" Y{BLU}":Y=Y+l 
31 BS(N,1)=ES:NEXTN:C=@0:PRINT"{2 DOWN}YOU CAN MAKE 
3" 
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IFBS (1,1)="N"ORBS(2,1)="N"ORBS(5,1)="N"THEN37 
IFY>7THEN47 

PRINT"NOTHING TODAY.":PRINT"YOU NEED MORE SUPPL 
IES 

PRINT" {2 DOWN} {GRN}PRESS RETURN{BLU}"; :GOSUB15@ 
GETES : IPFES=""THEN41 

IF ASC(ES)<>13THEN41 

GOTOS 

RESTORE : FORN=9T0Z*2+1 : READES :NEXT : READAS 
FORN=0TOZ : READES : LFES=""ORES="@"THENS3 

IFBS (N,1)="N"THENFORI=N+1T0Z : READES :NEXTI :GOTO5 
5 


NEXTN: PRINTAS;" CAKE":C=C+1l 

READAS : [FAS <>"Z" THEN49 

IFC=OTHEN37 

PRINT" {DOWN}GO AHEAD AND BAKE!":GOTO39 

PRINT" {CLR} {BLU} {DOWN} CHOOSE: {2 DOWN}":PRINT"A 
{SPACE}BANANA CAKE":PRINT"B CHERRY CAKE":PRINT" 

C CHOCOLATE CAKE" 

PRINT"D DEVIL'S FOOD CAKE{3 SPACES}E GOLD LAYER 
CAKE"“:PRINT"F OATMEAL CAKE" 

PRINT"G RED VELVET CAKE":PRINT"H SAUERKRAUT CAK 

E":PRINT"I SPICE CAKE" 

PRINT"J TWO-EGG CAKE":PRINT"K WACKY CAKE": PRINT 
"I, WHITE CAKE":GOSUBL5@ 

GETES : IFES=""THEN69 

A=ASC(ES ) : IFA<650RA>76THEN69 

RESTORE: PRINT" {CLR} {BLU}"; : FORN=9T02*Z+1 :READES 
>NEXT 

IFA=65THEN79 
FORN=1TOA-65 : READAS : FORI=0TOZ: READES :NEXTI,N 
READAS :PRINTAS;" CAKE{DOWN}":I=2 

FORN=@0TOZ : READES : LFES=""ORVAL (ES )=OTHEN85 

M(I)=VAL(ES) :C$(1I)=1$(N) :PRINTM(1);TAB(6) ;CS(I) 
sI=I+1 

NEXTN 

PRINT"{2 DOWN} {RED}CONVERT RECIPE? (Y/N) {BLU}" 
GETES : IFES="N"THEN39 

IFES<>"Y"THEN89 

PRINT" {DOWN]}MULTIPLY BY WHAT":PRINT"NUMBER OR D 
ECIMAL?":PRINT" {RED} -~-{BLU}"; 

INPUTF : IFF<=OTHENPRINT"SORRY, F>8":GOTO93 
F=INT(F*100)/100:PRINT" {CLR} {BLU}";F;"TIMES ORI 
GINAL{DOWN}":PRINTAS;" CAKE{DOWN}" 

FORN=O0TOI-1 : PRINTF*M(N) ; TAB(6):CS$(N) sNEXT:GOTO8 


DATAC. , SHORTENING, C.,FLOUR,C.,SUGAR,C.,BROWN S 
UGAR, TSP.,BAKING PDR,TSP. 
DATASALT,TSP.,SODA,C.,CHERRY JUICE, ,CHERRIES,C 
- » BANANAS ,C., SAUERKRAUT, C.,MILK 
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195 
197 
*199 
111 
*113 
*115 
*117 
*119 


#121 


DATAC., BUTTERMILK, , EGGS, ,EGG WHITES,TSP.,RED C 
OLOR, 9Z., CHOCOLATE, TBSP. , COCOA, TSP. 
DATAVANILLA, TSP. ,CINNAMON,TSP.,NUTMEG,TSP.,VIN 
EGAR,C.,SALAD OIL,C.,WATER,C.,OATMEAL 
DATABANANA, -67,2.5,1.67,,lslsleneler se eOla2arne 
oeeeeeee CHERRY, .5,2.25,1.6335,35 0554225 
DATA16,,¢¢Seee4eerneeeeeeee CHOCOLATE, .67,2.5,1. 
veers Tee ee eee eer 
DATADEVIL'S FOOD, .67,2.25,2,¢lelyleseong le 25ge3 
selce3deoeeeeeeeeGOLD LAYER, .5,2.25,1.5,,3 

DATAL, seer eli eG gp Qog ene e Seen eee pOATMEAL, .5,1. 
Selele se eSelo gsc cnreeernetg ec Dp ce Q0ge gle 25 
DATA], RED VELVET, .5,2¢75,1leSy, 95 eDpleSpepeenele2 
00 Gee 2elyeel eee » SAUERKRAUT, .67,2.25,1.25 
DATAG,1,-25 yp 0 e eGT gp p Serer Boreeeeeie25,,SPICE 
rT 225 gleelslele se resle denne retse5e DO 
DATAS, , TWO-EGG, .5,2-25,1-5,, 205 glepeeeclerltene 


solecerere WACKY, 25,1 eS, eelelovssrcee sD 
123 DATAS,,6,1,,,1.5,.75,1.5, ,WHITE, .75,2.25,1.5,, 


Selevescelers eevee ee reese 


158 FORI=9T09:GETES :NEXTI : RETURN 
200 PRINT" {CLR} {BLU}":END 


Cookie File 
Computer: VIC-20 


The DATA method used in “Bake a Cake” can be used for a variety 

of things — recipes of any kind, craft instructions, and even a 

type of word processor. “Cookie File” illustrates how the program 

can be adapted for cookie recipes. 
The general baking instructions are as follows: 

e Almond cookies — roll into balls, flatten slightly, and place 
blanched almond on top. Brush with egg if desired. 

¢ Ball cookies — drop cookies onto sheet, then flatten with ice 
cube or moist cloth; sprinkle colored cake decors on 
top; and bake just until golden brown around the edges. 

¢ Brownies — melt the cocoa with the shortening first and bake 
in square pan. 

¢ Butterscotch bars — melt shortening (or butter) with brown sugar; 
cool, then add other ingredients; and bake in rectangular 
glass baking dish. 

¢ Chocolate chip cookies — make as drop cookies. 

¢ Chocolate drop cookies — make as drop cookies. 

¢ Mexican Wedding Cookies — roll into balls, bake about 20 min- 
utes, and roll in powdered sugar while still warm, then again 
when cool. 
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¢ Oatmeal chocolate chips — make as drop cookies. 

¢ Oatmeal crisps (refrigerator cookie) — form into long roll and 
slice, then bake. 

e Snickerdoodles — roll dough into balls, and then roll in cinna- 
mon and sugar mixture before baking. 

¢ Toffee bars — press into 9 x 13 pan or on cookie sheet (about 12 
inch thick). 


Program 9-7. Cookie File 

VIC-20 
(In this program, make sure to use abbreviations for all BASIC keywords in the lines 
marked with an asterisk (*). If you don’t, the program will not run correctly. Refer to 
Appendix C, “BASIC Keyword Abbreviations,” for the proper abbreviations.) 


1 DIMGS$(17),V$(17,1),M(9),F$(9) s:POKE36879, 38 
2 FORI=0TO17:READAS ,V$(1I,8):GS(I)=ASt+" "+VS(I,0):N 
EXT 

*3 PRINT"{CLR}{DOWN}{5 SPACES}COOKIE FILE":PRINT" 

{ DOWN }CHOOSE{2 DOWN}":PRINT" 1 NEED TO KNOW":PRI 

NT" {3 SPACES}WHAT CAN BE MADE" 

PRINT"{2 DOWN} 2 WANT TO SEE RECIPE":PRINT" 

{2 DOWN} 3 END PROGRAM" 

GETRS : LFRS="3"THEN62 

IFRS="2"THEN33 

IFRS <>"1"THENS 

PRINT" {CLR} {BLU}IN THE FOLLOWING LIST PRESS 'Y' 

{SPACE}IF YOU HAVE THE INGREDIENT":PRINT"'N' IF 

{SPACE}YOU DO NOT." 

9 PRINT"PRESS 'S' TO START{4 SPACES}OVER.{2 DOWN}" 
:YS=0 : FORK=6T017:PRINTVS(K,@):"{2 SPACES} {RED} 
E2 PJ{BLK}"; 

18 GETRS:IFRS=""THEN1G 

12 IFRS="S"THENS8 

13 IFRS="N"THENPRINT"N":GOTO16 

14 IFRS<>"Y"THEN1@ 

15 PRINT"Y": YS=YS+1 

16 V$(K,1)=R$:PRINT"{BLU}"; sNEXT:C=98: PRINT" 

{3 DOWN}YOU CAN MAKE:" 

17 IFVS(@,1)="N"ORVS(6,1)="N"THEN19 

18 IFYS>4THEN24 

19 PRINT"NOTHING TODAY.":PRINT"YOU NEED MORE SUPPL 

IES" 

28 PRINT"{3 DOWN}{GRN}PRESS RETURN. {BLU}" 

21 GETRS: IFRS=""THEN21 

22 IFASC(RS$)<>13THEN21 

23 GOTO3 

24 RESTORE: FORJ=1T036 : READBS : NEXT: READAS 

25 FORJ=0TO17 : READBS : IFBS=""THEN27 

26 IFVS(J,1)="N"THEN28 

27 NEXT: PRINTAS :C=C+1l 


Ona uw > 
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READAS : IFAS="22ZZ "THEN31 
IFLEN (AS ) <6THEN28 
GOTO25 
IFC=9THEN19 
PRINT" {DOWN}GO AHEAD AND BAKE!":GOTO29 
PRINT" {CLR}CHOOSE:":PRINT"{DOWN}A ALMOND COOKIE 
S{6 SPACES}B BALL COOKIES":PRINT"C BROWNIES" 
PRINT"D BUTTERSCOTCH BARS{3 SPACES}E CHOCO CHIP 
COOKIES{2 SPACES}F CHOCO DROP COOKIES" 
PRINT"G MEX WEDDING COOKIES H OATMEAL CHOCO CHI 
PS I OATMEAL CRISPS":PRINT"J SNICKERDOODLES" 
PRINT"K SUGAR COOKIES":PRINT"L TOFFEE BARS" 
GETRS : LFRS=""THEN37 
=ASC(RS) : IFA<650RA>76THEN 37 
RESTORE: PRINT" {CLR} {DOWN}" : FORI=1T036 : READBS : NE 
XT: IFA=65THEN41 
FORI=1TOA~65 : READAS : FORK=0TO18 : READRS : NEXTK, I 
READAS : PRINTAS :K=@3 PRINT 
FORJ=9TO17: READBS : IFBS=""0RVAL (BS )=OTHEN44 
M(K)=VAL(BS) :F$(K)=G$(J):PRINTM(K) ;}TAB(6) 3 FS(K) 
sK=K+1 
NEXTJ:READT: PRINT" {DOWN}BAKE AT";T 
PRINT" {DOWN} {RED}CONVERT RECIPE? (Y/N)" 
GETRS : IFRS="N"THEN22 
IFRS <>"Y"THEN46 
PRINT" {DOWN}MULTIPLY BY WHAT":PRINT"NUMBER OR D 
ECIMAL?":PRINT"K2 PJ{BLU}";: 
INPUTF: LFF<=@THENPRINT"SORRY, F>8":GOTO48 
F=(INT(F*100)/108):PRINT"{CLR}":PRINTF; "TIMES O 
RIGINAL": PRINT: PRINTAS : PRINT 
FORI=@TOK-1: PRINTF*M(1I):FS(1I):NEXT:GOTO45 
DATAC., SHORTENING, C.,SUGAR,C.,BROWN SUGAR,C. 
DATAPDRD SUGAR,,EGGS,TSP.,VANILLA,C.,FLOUR, TSP 
DATABAKING PDR,TSP.,BAKING SODA,TSP.,SALT,TSP. 
, CINNAMON, TBSP. ,COCOA, TSP. 
DATAALMOND EXT,C. 
DATAMILK,C.,OATMEAL,OZ.,CHOCO CHIPS, DOZ.,ALMON 
DS, TSP. 
DATACAKE DECORS,ALMOND COOKIES, 2,2,,,2 
DATA"",4,2,¢¢7220000%022375,BALL COOKIES, .5,.33 
sercgeDe eT Ogeeeeeerser eel 
DATABROWNIES, .5 
DATA], ¢¢2elee Tg eSe pe Det Oe reer ee SOO 
DATABUTTERSCOTCH BARS, -5,,2re2eleleT5e2eee25en 
seveeee 308 
DATACHOCO CHIP COOKIES, 05,225, e5Sy¢ lye eSylyyg o5See 
Speer er Over dl 
DATACHOCO DROP COOKIES,.5,,1,@ 
DATA®D,1,1-667 55 25¢ 5p eGeneDe e002 300 
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585 DATAMEXICAN WEDDING, -75,,, 67, eleleSene ce 2dele, 
002154449 

598 DATA325 

595 DATAOATMEAL CHOCO,1,1,-5,,2sle2eelelorssre tenn 
,359,OATMEAL CRISPS,1,1,1,,2,1,1.-5 

690 DATAG,1,lieeee 300243090, SNICKERDOODLES,1,1.5,,, 
Zee 2e IS Sep eDe cent ee 400 

605 DATASUGAR COOKIES 

610 DATA.67, .75, 7,71, 05 e2eleHSg ge 25g gee ce 2Ogennte dlO 

615 DATATOFPFEE BARS,1l,l,,sslse2ereseses2 0002 300,445 

620 PRINT" {CLR}":END 


States and Capitals 
Computers: VIC-20; MC-10; TRS-80 Model I; TI-99/4A 


Can you name the capital of each state? This program gives you 
practice in just that. States are chosen in a random order. You have 
two chances to get the capital city correct, and spelling counts. If 
the city is missed twice, you'll see the right answer, and that state 
will appear again. The drill continues until all 50 states’ capitals 
have been correctly entered. The number of total guesses is then 
shown. The closer your score is to 50, the better your knowledge 
is of states and their capitals. 

All three versions work about the same. 

Program control first branches past subroutines. PRESS 
RETURN or PRESS ENTER will display, and the computer will 
wait for the response. The VIC-20 version has a delay subroutine 
and also initializes sound parameters. 

The screen clears and the title is printed. The DIMension state- 
ment allows for state names S$ and capitals C$ in elements zero 
to 49. The states and corresponding capitals are READ in from 
DATA. Next the instructions are printed. 

G, the number of guesses, is initialized to zero. N is the num- 
ber of states that have had the capitals named correctly. F is a flag 
which ordinarily is zero but is 1 if the capital has been missed 
once. After two misses, the capital is given and that state remains 
in the list. B$ is the string variable that keeps the letters the user 
has typed in. If the back arrow is pressed to erase, B$ is reduced 
and a space is printed. After the capital has been named correctly, 
S$(R) is set equal to null, “”, so that state will not be chosen again. 

The last three lines print the total number of guesses and 
end the program. 
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Program 9-8. States and Capitals 


VIC-20 


(In this program, make sure to use abbreviations for all BASIC keywords in the lines 
marked with an asterisk (*). If you don't, the program will not run correctly. Refer to 
Appendix C, “BASIC Keyword Abbreviations,” for the proper abbreviations.) 


2 T=36876 : POKE36878,15:GOTO14 

4 PRINT" {DOWN} {GRN}PRESS <RETURN>" 
6 GETES: IFES=""THEN6 

8 IFASC(ES)<>13THEN6 


16 
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PRINT" {CLR} {BLU }":RETURN 
FORD=1T0169 : NEXT: RETURN 

PRINT" {CLR} {DOWN} STATES AND CAPITALS" 
DIMSS (49) ,CS$(49) 
FORI=0T049:READSS(1I),CS(1I):NEXT 

DATAALABAMA , MONTGOMERY, ALASKA, JUNEAU , ARIZONA, PH 
OENIX, ARKANSAS, LITTLE ROCK, CALIFORNIA 
DATASACRAMENTO , COLORADO, DENVER, CONNECTICUT, HART 
FORD 

DATADELAWARE, DOVER, FLORIDA, TALLAHASSEE 
DATAGEORGIA, ATLANTA, HAWAII , HONOLULU, IDAHO, BOISE 
, ILLINOIS, SPRINGFIELD, INDIANA 
DATAINDIANAPOLIS, IOWA, DES MOINES, KANSAS, TOPEKA 
DATAKENTUCKY , FRANKFORT, LOUISIANA, BATON ROUGE 
DATAMAINE , AUGUSTA, MARYLAND, ANNAPOLIS , MASSACHUSE 
TTS , BOSTON, MICHIGAN, LANSING, MINNESOTA 

DATAST. PAUL,MISSISSIPPI, JACKSON, MISSOURI, JEFFE 
RSON CITY,MONTANA, HELENA, NEBRASKA 
DATALINCOLN, NEVADA, CARSON CITY,NEW HAMPSHIRE,CO 
NCORD,NEW JERSEY, TRENTON,NEW MEXICO 

DATASANTA FE,NEW YORK, ALBANY,NORTH CAROLINA, RAL 
EIGH 

DATANORTH DAKOTA, BISMARCK, OHIO, COLUMBUS 
DATAOKLAHOMA, OKLAHOMA CITY, OREGON, SALEM, PENNSYL 
VANIA, HARRISBURG 

DATARHODE ISLAND, PROVIDENCE 

DATASOUTH CAROLINA, COLUMBIA, SOUTH DAKOTA, PIERRE 
DATATENNESSEE , NASHVILLE, TEXAS , AUSTIN, UTAH 
DATASALT LAKE CITY, VERMONT ,MONTPELIER, VIRGINIA, 
RICHMOND, WASHINGTON, OLYMPIA 

DATAWEST VIRGINIA, CHARLESTON, WISCONSIN, MADISON, 
WYOMING , CHEYENNE 

PRINT" {DOWN}TYPE IN THE NAME OF{3 SPACES}THE CA 
PITAL AS THE{4 SPACES]STATE APPEARS." 

PRINT" {DOWN}CITIES MUST BE SPELLEDCORRECTLY TO 
{SPACE}BE":PRINT"COUNTED AS CORRECT.":GOSUB4 
G=0 :M=7879 

FORN=1T050 

F=@0:R=INT(50*RND(@)) sIFSS(R)=""THEN52 

PRINT" {CLR}":N:PRINT"{3 DOWN}STATE: ";S$(R) 
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56 PRINT" {DOWN}CAPITAL: ":BS=""s:POKET,225:GOSUB12: 
POKET, 0:G=G+l 

58 FORI=1T02@:POKE3@7204+M+I,@ 

60 GETES: IFES=""THEN6G 

62 IFASC(ES )=13THEN89 

64 IFASC(ES)<>26THEN79 

66 I=I-1:IFI=O0THENI=1:GOTO6d 

68 BS=LEFTS (BS, LEN(BS)—1) :POKEM+I, 32:GOTO6@ 

70 IFASC(ES )=32THENE=32:GOTO78 

72 IFASC(ES )=46THENE=46 :GOTO78 

74 IFASC(ES)<650R ASC(ES)>9S9THEN6S 

76 E=ASC(ES)-64 

78 POKEM+1,E:BS=BS+ES$ :NEXTI 

88 IFBS=CS$(R)THEN88 

82 POKET, 159:GOSUB12: POKET, 135:GOSUB12: POKET,@ 

84 F=F+l:IFF=1THENPRINT"{3 UP}":FORJ=M TOM+2@: POKE 
J,32:NEXTJ :GOTO56 

86 PRINT"{4 DOWN}{2 SPACES}"CS(R):GOSUB4:N=N—-1:GOT 
094 

88 PRINT"{5 DOWN} {RED}CORRECT! {BLU}" 

98 POKET,195:GOSUB12: POKET, 207:GOSUB12: POKET, 215:G 
OSUB12: POKET, 225:GOSUB12: POKET,@ 

92 S$(R)=" rT 

94 NEXTN:PRINT"{CLR}{DOWN}YOU ANSWERED ALL 50." 

96 PRINT" {DOWN}NUMBER OF GUESSES:":G:PRINT 

98 END 


Program 9-9. States and Capitals 
MC-10 

GOTO6 

PRINT@495, "PRESS <ENTER>"; 

ES=INKEYS$: IFES=""THEN3 

IFASC (ES) <>13THEN3 

CLS: RETURN 

CLS: PRINT@165,"**STATES AND CAPITALS** 

DIMSS$(49),C$(49) 

FORI=9T049: READSS(1),CS$(I):NEXT 

DATAALABAMA , MONTGOMERY , ALASKA, JUNEAU, ARIZONA, PHO 

ENIX, ARKANSAS, LITTLE ROCK, CALIFORNIA, SACRAMENTO, 

COLORADO, DENVER 

18 DATACONNECTICUT, HARTFORD, DELAWARE, DOVER, FLORIDA 
, TALLAHASSEE, GEORGIA, ATLANTA, HAWAII , HONOLULU, ID 
AHO, BOISE, ILLINOIS, SPRINGFIELD 

11 DATAINDIANA, INDIANAPOLIS, IOWA,DES MOINES, KANSAS 
, TOPEKA, KENTUCKY, FRANKFORT, LOUISIANA, BATON ROUG 
E,MAINE, AUGUSTA, MARYLAND 

12 DATAANNAPOLIS , MASSACHUSETTS, BOSTON , MICHIGAN, LAN 
SING,MINNESOTA,ST. PAUL,MISSISSIPPI1,JACKSON,MIS 
SOURI, JEFFERSON CITY,MONTANA 


OON AM Hh WN FE 
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13 DATAHELENA, NEBRASKA, LINCOLN,NEVADA, CARSON CITY, 
NEW HAMPSHIRE, CONCORD,NEW JERSEY, TRENTON,NEW ME 
XICO,SANTA FE,NEW YORK 

14 DATAALBANY,NORTH CAROLINA, RALEIGH,NORTH DAKOTA, 
BISMARCK, OHIO, COLUMBUS , OKLAHOMA, OKLAHOMA CITY,O 
REGON, SALEM, PENNSYLVANIA 

15 DATAHARRISBURG, RHODE ISLAND, PROVIDENCE,SOUTH CA 
ROLINA, COLUMBIA, SOUTH DAKOTA, PIERRE, TENNESSEE,N 
ASHVILLE, TEXAS, AUSTIN, UTAH 

16 DATASALT LAKE CITY,VERMONT,MONTPELIER, VIRGINIA, 
RICHMOND , WASHINGTON, OLYMPIA, WEST VIRGINIA, CHARL 
ESTON 

17 DATAWISCONSIN, MADISON, WYOMING, CHEYENNE 

18 PRINT@288, "TYPE IN THE NAME OF THE CAPITAL AS T 
HE STATE APPEARS." 

19 PRINT"CITIES MUST BE SPELLED CORRECTLYTO BE COU 
NTED AS CORRECT. ":GOSUB2 

26 G=2 

21 FORN=1T0590 

22 F=0:R=RND(50)-1: IFSS$(R)=""THEN22 

23 PRINT@28,N 

24 PRINT@160, "STATE: ":S$(R) 

25 PRINT@256, “CAPITAL: ": BS="":SOUND227,1:G=Gtl 

26 FORI=1T026 

27 ES=INKEYS: IFES=""THEN27 

28 IFASC(ES )=13THEN33 

29 IFASC(ES ) <>8THEN32 

3@ I=I-l1:IFI=OTHENI=1:GOTO27 

31 BS=LEFTS (BS, LEN(BS )-1):PRINT@265+1," "::GOTO27 

32 PRINT@265+1,ES$; :BS=BS+ES$:NEXT 

33 IFBS=C$(R) THEN37 

34 SOUND125,2:SOUND89, 2:PRINT@266, "{26 SPACES }" 

35 PeP+1]1:IFF=1THEN25 

36 PRINT@266,CS$ (R):GOSUB2:N=N-1:GOTO39 

37 PRINT@394, "CORRECT!" 

38 SOUND89, 1:SOUND125,1:SOUND147,1:SOUND176, 3:S$(R 
)=" 0 

39 CLS:NEXTN 

49 CLS:PRINT@128, "YOU ANSWERED ALL 50." 

41 PRINT@224, "NUMBER OF GUESSES: ";G:PRINT@448 

42 END 


Program 9-10. States and Capitals 
TRS-80 Model | 

1 GOTO6 

2 PRINT@990,"PRESS <ENTER>"; 

3 ES=INKEYS: IFES=""THEN3 

4 IFASC(ES) <>13THEN3 

5 CLS:RETURN 
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CLS:PRINT@205,"**STATES AND CAPITALS** 

DIMSS$ (49),C$(49) 

FORI=8T049: READSS(1I),C$(I):NEXT 

DATAALABAMA , MONTGOMERY, ALASKA, JUNEAU , ARIZONA, PHO 

ENIX,ARKANSAS, LITTLE ROCK,CALIFORNIA, SACRAMENTO, 

COLORADO, DENVER 

18 DATACONNECTICUT, HARTFORD, DELAWARE, DOVER, FLORIDA 
, TALLAHASSEE, GEORGIA, ATLANTA, HAWAII , HONOLULU, ID 
AHO, BOISE, ILLINOIS, SPRINGFIELD 

11 DATAINDIANA, INDIANAPOLIS, IOWA,DES MOINES, KANSAS 
, TOPEKA, KENTUCKY, FRANKFORT, LOUISIANA, BATON ROUG 
E,MAINE, AUGUSTA, MARYLAND 

12 DATAANNAPOLIS , MASSACHUSETTS, BOSTON , MICHIGAN, LAN 
SING,MINNESOTA,ST. PAUL,MISSISSIPPI,JACKSON,MIS 
SOURI, JEFFERSON CITY,MONTANA 

13 DATAHELENA, NEBRASKA, LINCOLN,NEVADA,CARSON CITY, 
NEW HAMPSHIRE, CONCORD,NEW JERSEY, TRENTON,NEW ME 
XICO,SANTA FE,NEW YORK 

14 DATAALBANY,NORTH CAROLINA, RALEIGH,NORTH DAKOTA, 
BISMARCK, OHIO, COLUMBUS, OKLAHOMA, OKLAHOMA CITY,O 
REGON, SALEM, PENNSYLVANIA 

15 DATAHARRISBURG, RHODE ISLAND, PROVIDENCE,SOUTH CA 
ROLINA, COLUMBIA, SOUTH DAKOTA, PIERRE, TENNESSEE,N 
ASHVILLE, TEXAS, AUSTIN, UTAH 

16 DATASALT LAKE CITY, VERMONT, MONTPELIER, VIRGINIA, 
RICHMOND, WASHINGTON, OLYMPIA,WEST VIRGINIA, CHARL 
ESTON 

17 DATAWISCONSIN, MADISON, WYOMING, CHEYENNE 

18 PRINT@512, "TYPE IN THE NAME OF THE CAPITAL AS T 
HE STATE APPEARS." 

19 PRINT"CITIES MUST BE SPELLED CORRECTLYTO BE COU 
WTED AS CORRECT. ":GOSUB2 

20 G=6 

21 FORN=1T05@ 

22 F=0:R=RND(59)-1:IFSS(R)=""THEN22 

23 PRINT@56,N 

24 PRINT@320, "STATE: ";S$(R) 

25 PRINT@512, "CAPITAL: ":BS="":G=G+1:L=521 

26 FORI=1T02@ 

27 ES=INKEYS: IFES=""THEN27 

28 IFASC(ES )=13THEN33 

29 IFASC(ES )<>8THEN32 

30 I=I-1:I1FI=OTHENI=1:GOTO27 

31 BS=LEFTS (BS, LEN(BS$)—-1):PRINT@L+1," ";:GOTO27 

32 PRINT@L+1,E$: :BS=BS+ES$:NEXT 

33 IFBS$=C$(R) THEN37 

34 PRINT@788, “INCORRECT, TRY AGAIN": FORD=1T0500:NE 
XT: PRINT@788, "{20 SPACES}":PRINT@L, "{21 SPACES}" 

35 PeF+1l:IFF=1THEN25 


109 © ~1 OY 
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36 PRINT@532,CS$(R):GOSUB2:N=N-1:GOTO39 

37 PRINT@788, "CORRECT! " 

38 FORD=1T0500:NEXT:SS(R)="" 

39 CLS:NEXTN 

49 CLS:PRINT@256, "YOU ANSWERED ALL 50." 

- PRINT@448, "NUMBER OF GUESSES: ";G:PRINT@896, "" 
END 


Program 9-11. States and Capitals 


180 
118 
120 
138 
146 
15@ 
169 
176 
189 
190 
280 
210 


220 
230 
240 
250 
269 
270 


286 


296 


38 


318 


326 


336 
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GOTO 168 

PRINT :::"PRESS <ENTER>"> 

CALL KEY(@,K,S) 

IF K<o13 THEN 1290 

CALL CLEAR 

RETURN 

CALL CLEAR 

PRINT "** STATES AND CAPITALS **"ss3e3:3 

PRINT "TYPE IN THE NAME OF THE" 

PRINT "CAPITAL AS THE STATE NAME" 

PRINT "APPEARS. " 

PRINT :"CITIES MUST RE SPELLED": "CORRECTLY TO 

BE COUNTED": "AS CORRECT. " 

PRINT :"PRESS LEFT ARROW TO ERASE.":: 

DIM S$(49),c$(49) 

FOR I=8 TO 49 

READ SS$(I),CS$(I) 

NEXT I 

DATA ALABAMA, MONTGOMERY ,ALASKA, JUNEAU, ARIZONA, 
PHOENIX, ARKANSAS, LITTLE ROCK, CALIFORNIA, SACRAM 
ENTO , COLORADO 

DATA DENVER, CONNECTICUT, HARTFORD, DELAWARE, DOVE 
R, FLORIDA, TALLAHASSEE, GEORGIA, ATLANTA, HAWAII ,H 
ONOLULU, IDAHO 

DATA BOISE, ILLINOIS, SPRINGFIELD, INDIANA, INDIAN 
APOLIS, IOWA,DES MOINES, KANSAS, TOPEKA, KENTUCKY, 
FRANKFORT 

DATA LOUISIANA, BATON ROUGE, MAINE, AUGUSTA, MARYL 
AND, ANNAPOLIS , MASSACHUSETTS , BOSTON, MICHIGAN, LA 
NSING 

DATA MINNESOTA,ST. PAUL,MISSISSIPPI,JACKSON,MI 
SSOURI, JEFFERSON CITY,MONTANA, HELENA, NEBRASKA, 
LINCOLN 

DATA NEVADA,CARSON CITY,NEW HAMPSHIRE, CONCORD, 
NEW JERSEY, TRENTON,NEW MEXICO,SANTA FE,NEW YOR 
K, ALBANY 

DATA NORTH CAROLINA, RALEIGH,NORTH DAKOTA, BISMA 
RCK, OHIO, COLUMBUS , OKLAHOMA, OKLAHOMA CITY,OREGO 
N, SALEM 
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DATA PENNSYLVANIA, HARRISBURG, RHODE ISLAND, PROV 
IDENCE,SOUTH CAROLINA, COLUMBIA, SOUTH DAKOTA, PI 
ERRE 
DATA TENNESSEE, NASHVILLE, TEXAS, AUSTIN, UTAH, SAL 
T TAKE CITY, VERMONT ,MONTPELIER, VIRGINIA, RICHMO 
ND 
DATA WASHINGTON ,OLYMPIA,WEST VIRGINIA, CHARLEST 
ON, WISCONSIN, MADISON, WYOMING, CHEYENNE 
G=9 
P=19 
GOSUB 114 
FOR N=1 TO 56 
CALL CLEAR 
F=0 
RANDOMIZE 
R=INT (50*RND ) 
IF S$(R)="" THEN 440 
PRINT N 
::: "STATE: ":SS$(R) 
:"CAPITAL: "se233 


CALL SOUND(198@,1497, 2) 
FOR I=l TO 20 

CALL KEY(9,K,S) 

IF K=13 THEN 670 

IF S<l THEN 530 

IF K<>8 THEN 640 


I=I-l 

IF I>@ THEN 610 

T=l 

GOTO 530 

BS=SEGS (BS$,1,LEN(BS$)-1) 


CALL HCHAR(P,11+1,32) 
GOTO 538 

CALL HCHAR(P,11+I,K) 
BS=BS&CHRS (K) 

NEXT I 

IF B$=C$(R)THEN 780 
CALL SOUND (1860,338,4) 
CALL SOUND(1868,262,4) 
CALL HCHAR(P,12,32,20) 
F=F+1 

IF F=l1 THEN 490 

FOR I=l TO LEN(CS(R) ) 
CALL HCHAR(P,11+1I,ASC(SEG$(C$(R),I,1))) 
NEXT I 

GOSUB 110 

GOTO 418 
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780 PRINT “CORRECT!” 

799 CALL SOUND(108,262,2) 

868 CALL SOUND(190,330,2) 

818 CALL SOUND(1069,392,2) 

828 CALL SOUND(158,523,2) 

838 S$(R)="" 

840 NEXT N 

850 CALL CLEAR 

860 PRINT "YOU ANSWERED ALL 598." 
870 PRINT ::::"NUMBER OF GUESSES: ";Gss333 
880 END 


South America 
Computers: VIC-20; TRS-80 Color Computer; TRS-80 Model |; TI-99/4A 


Although shorter than “States and Capitals,” this program, which 
is a drill for the capitals of the countries of South America, is similar. 
A list of the capital cities is printed on the screen. The computer 
randomly chooses a country and prints the country, and you then 
press the letter corresponding to the capital city of that country. 

All the versions work like this: 

The countries and capitals are READ in from DATA, alpha- 
betically by capital. The country is S$ and the capital is C$. After 
a country has been chosen, S§() is set equal to “” so it will not be 
chosen again. 

(Note: The names and spellings of the countries and capitals 
change periodically. You may need to adjust this list to correspond 
with your sources of information.) 


Program 9-12. South America 
VIC-20 


118 DIMSS$(11),C$(11) 

128 PRINT"{CLR}** SOUTH AMERICA **" 

130 PRINT" {DOWN}MATCH THE COUNTRY WITHTHE CAPITAL 
{SPACE}CITY.":PRINT"PRESS THE LETTER. " 

1490 FORI=0TO11:READSS(1I),CS$S(1I):NEXT 

158 DATACOLOMBIA, BOGOTA, BRAZIL, BRASILIA, ARGENTINA, 
BUENOS AIRES, VENEZUELA, CARACAS 

155 DATAFRENCH GUIANA, CAYENNE, GUYANA, GEORGETOWN, PE 
RU, LIMA, URUGUAY, MONTEVIDEO 

168 DATASURINAME, PARAMARIBO, ECUADOR, QUITO, CHILE,SA 
NTIAGO, BOLIVIA, SUCRE 

178 PRINT"{3 DOWN}PRESS A KEY TO START." 

188 GETAS: IPAS=""THEN18@ 

198 Ss=@ 

200 FORT=1TO12:PRINT"{CLR}" 

219 R=INT(12*RND(@)) :IFSS(R)=""THEN219 

228 FORI=0TO11:PRINTCHRS(65+1);" ":C$(1I):NEXTI:PRI 
NT 
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230 
240 
259 
260 
276 
286 
298 
389 
319 
32 
336 
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PRINTSS(R);"{3 SPACES}??? "; 

GETAS : ILFAS=""THEN24@ 

IFASC (AS ) <65THEN24@ 

IFASC (AS ) >76THEN24@ 

PRINTAS: IFASC(AS$)-65=R THEN290 

PRINT" {DOWN}THE CAPITAL IS":PRINTCS$(R) :GOTO39@ 
PRINT"CORRECT!":S=S+1 

S$(R)="":PRINT"{3 SPACES}PRESS <RETURN>"; 
GETAS : LFA$<>CHRS$ (13) THEN316 

NEXTT 

PRINT" {CLR} {DOWN}SOUTH AMERICA": PRINT" {DOWN} YO 
UR SCORE WAS ":S:PRINT"OUT OF 12 COUNTRIES 

{ Down} " 

END 


Program 9-13. South America 


TRS-80 Color Computer; TRS-80 Model I 


DIMS$(11),c$(11) 

CLS: PRINTTAB(5);"** SOUTH AMERICA **" 

PRINT: PRINT"MATCH THE COUNTRY WITH THE 

{6 SPACES}CAPITAL CITY.":PRINT"PRESS THE CORRE 
CT LETTER." 

FORI=0TO11:READSS$(1I),CS(1I):NEXT 
DATACOLOMBIA, BOGOTA, BRAZIL, BRASILIA, ARGENTINA, 
BUENOS AIRES, VENEZUELA, CARACAS, FRENCH GUIANA,C 
AYENNE, GUYANA, GEORGETOWN 

DATAPERU, LIMA, URUGUAY , MONTEVIDEO, SURINAME, PARA 
MARIBO, ECUADOR, QUITO, CHILE, SANTIAGO, BOLIVIA, SU 
CRE 

PRINT: PRINT:PRINT"PRESS ANY KEY TO START." 
AS=INKEYS: IFAS=""THEN18@ 

S=2 

FORT=1T012:CLS 

R=RND(12)-1:IFS$(R)=""THFEN2192 


FORI=9T0O11:PRINTTAB(4);:CHR$S(654+1);" “s:CS(I):NE 
XTI:PRINT 
PRINTSS(R);"{3 SPACES}??? 


AS=INKEYS: IFAS=""THEN24@ 

IFASC (AS ) <65THFN24@ 

IFASC(AS )>76THEN24@ 

PRINTAS; : IFASC(A$)-65=R THEN290 
PRINT:PRINT"THE CAPITAL IS ":CS$(R):GOTO3909 
PRINT" CORRECT! ":S=S+1 

SS(R)="":PRINT" {5 SPACES}PRESS <ENTER>?"; 
AS=INKEYS: IFAS <>CHRS (13 )THEN31@ 

NEXTT 

CLS:PRINT"SOUTH AMERICA": PRINT: PRINT"YOUR SCOR 
E WAS ";S:PRINT"OUT OF 12 COUNTRIES.":PRINT 
END 
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Program 9-14. South America 


119 
126 
130 
140 


158 
160 


176 
180 


196 


240 


TI-99/4A 
DIM S$(11),c$(11) 
CALL CLEAR 


PRINT TAB(4);"** SOUTH AMERICA **" 

PRINT ::"MATCH THE COUNTRY WITH THE": : “CAPITAL 
CITY."::"PRESS THE CORRECT LETTER. "::3323 

FOR I=8 TO 11 

READ SS$(1I),C$(I) 

NEXT I 

DATA COLOMBIA, BOGOTA, BRAZIL, BRASILIA, ARGENTINA 
, BUENOS AIRES, VENEZUELA, CARACAS, FRENCH GUIANA, 

CAYENNE 

DATA GUYANA, GEORGETOWN, PERU, LIMA, URUGUAY , MONTE 

VIDEO, SURINAME, PARAMARIBO, ECUADOR, QUITO 

DATA CHILE, SANTIAGO, BOLIVIA, SUCRE 

PRINT ::"PRESS ANY KEY TO START." 

CALL KEY(8,K,S) 


IF S<l THEN 220 

SC=9 

FOR T=1 TO 12 

CALL CLEAR 

RANDOMIZE 
R=INT(12*RND) 

IF S$(R)="" THEN 2890 
FOR I=98 TO 11 


PRINT TAB(4);:CHRS(654+1):" "3CcS$(1L) 
NEXT I 

PRINT ::S$(R)3" 222" 

CALL KEY(@,K,S) 

IF (K<65)+(K>76)THEN 349 

CALL HCHAR(23, 26,K) 

IF K-65=R THEN 480 

PRINT :"THE CAPITAL IS ";C$(R) 
GOTO 420 

PRINT : "CORRECT!" 

SC=SC+1 

ss (R)=" 7 

PRINT :::"PRESS <ENTER>?"; 

CALL KEY(@,K,S) 

IF K<>13 THEN 440 

NEXT T 

CALL CLEAR 

PRINT "SOUTH AMERICA": :: 
"OUT OF 12 COUNTRIES.":: 
END 


: "YOUR SCORE WAS";SC:: 
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Countries 
Computers: VIC-20; TRS-80 Color Computer; TRS-80 Model I; TI-O9/4A 


A quiz-style game, “Countries” can be used while you study 
elementary geography. The seven continents are listed on the 
screen by the computer, which then prints a country’s name. You 
must press the number of the continent where the country is 
located. There are ten countries for each quiz. Fifty countries are 
listed in the program, so it is possible to go through the quiz four 
times without repeating. If the country is located correctly, it 

will not appear again, but if it is located incorrectly it could be 
chosen again. 

Countries works like this: 

The first DATA statements contain the name of the country 
and a corresponding continent number, READ in as C$() and 
C(). The continents are A§(). If the continent is named correctly, 
C$(R) is set to “” so it will not be chosen again. T is the number 
of times the test has been given. After four times, the DATA is 
RESTOREd for more quizzes. 

(Note: Check periodically to make sure the country names 
and spellings are current.) 


Program 9-15. Countries 
VIC-20 
4 DIMAS$(7),C$(58),C(5@) 
6 PRINT" {CLR}YOU WILL BE GIVEN THE NAME OF A COUNT 
RY.":PRINT"WHERE IS IT LOCATED?" 
8 PRINT" {DOWN}SEVEN CONTINENTS ARE{2 SPACES}LISTED 
-{2 SPACES}CHOOSE THE{3 SPACES}RIGHT NUMBER." 
19 FORI=@T05@:READCS(1),C(1) :NEXT 
12 DATAFRANCE, 3, BRAZIL, 2,LIBYA,5,UNITED STATES,1,C 
ANADA, 1,MEXICO,1, PERU, 2,NORWAY, 3 
14 DATAU.S.S.R;4, CHILE, 2,CHINA,4,JAPAN,4,SPAIN,3,D 
ENMARK, 3, ITALY, 3, PORTUGAL, 3, ENGLAND, 3 
16 DATAINDIA, 4, LRAN, 4, GERMANY, 3, ARGENTINA, 2, URUGUA 
Y,2, PARAGUAY, 2, ECUADOR, 2, BOLIVIA, 2 
18 DATACOLOMBIA, 2, VENEZUELA, 2, KOREA, 4, IRELAND, 3, QU 
EENSLAND,6,NEW SOUTH WALES, 6 
20 DATAWESTERN AUSTRALIA, 6,MONGOLIA, 4, NIGER, 5, CHAD 
, 5, ZALRE,5,HONDURAS,1,EGYPT,5 
22 DATASWITZERLAND, 3, CAMBODIA, 4, VIETNAM, 4, FINLAND, 
3, SWEDEN, 3, GUATEMALA, 1, IRAQ, 4 
24 DATAZAMBIA,5, BANGLADESH, 4,AUSTRIA, 3, POLAND, 3,CZ 
ECHOSLAVAKIA, 3, GUYANA, 2 
26 FORI=1T07 : READAS(I):NEXT 
28 DATANORTH AMERICA, SOUTH AMERICA, EUROPE,ASIA,AFR 
ICA, AUSTRALIA, ANTARCTICA 
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PRINT" {DOWN}PRESS Fl TO BEGIN." 

GETES : [FES <> CHR$ (133 ) THEN32 

T= 

SC=8 

FORI=1T019:PRINT" {CLR}" 

FORJ=1T07 : PRINTJ; A$ (J) sNEXTJ : PRINT" { DOWN }" 
R=INT(51*RND(@)) :IFCS(R)=""THEN42 
PRINTCS(R):PRINT" {DOWN}WHICH CONTINENT? "; 
GETES : LFES=""THEN46 

IFASC(ES )<490RASC(ES )>55THEN46 

PRINTES : IFVAL(ES )=C(R)THEN54 

PRINT" {DOWN} SORRY, ":CS$(R):PRINT"IS IN 

{ SHIFT-SPACE}";AS$(C(R) ) :GOTO56 

PRINT" {DOWN} CORRECT! ":SC=SC+1:CS$(R)="" 
PRINT" {DOWN}PRESS <RETURN>"; 

GETES : IFES <>CHRS$ (13) THEN58 

NEXTI 

PRINT" {CLR} {DOWN}OUT OF 128 COUNTRIES":PRINT" 
{DOWN}YOUR SCORE IS";SC 

PRINT" {2 DOWN}TRY AGAIN? (Y/N)" 

GETES : LFES="N"THEN74 

IFES<> "Y" THEN66 

T=T+1 :IFT<STHEN36 

RESTORE: FORI=0T0O50:READCS (1I),C(1I) sNEXT:GOTO34 
END 


Program 9-16. Countries 


16 


11 


TRS-80 Color Computer; TRS-80 Model | 


DIMAS (7),C$(58),C(5@) 
CLS:PRINT“YOU WILL BE GIVEN THE NAME OF A COUNTR 
Y. WHERE IS IT LOCATED?" 
PRINT: PRINT"SEVEN CONTINENTS ARE LISTED. 
{4 SPACES}CHOOSE THE RIGHT NUMBER. " 
FORI=8T05@:READCS(I),C(I):NEXT 
DATA FRANCE,3,BRAZIL, 2,LIBYA,5,UNITED STATES,1,C 
ANADA, 1,MEXICO,1,PERU,2,NORWAY,3,U.S.S.R,4, CHILE 
,2,CHINA, 4, JAPAN, 4,SPAIN, 3 
DATA DENMARK,3, ITALY, 3,PORTUGAL, 3, ENGLAND, 3, INDI 
A,4, IRAN, 4,GERMANY, 3,ARGENTINA, 2, URUGUAY, 2, PARAG 
UAY, 2, ECUADOR, 2, BOLIVIA, 2 
DATA COLOMBIA, 2, VENEZUELA, 2,KOREA, 4, LRELAND, 3, QU 
EENSLAND,6,NEW SOUTH WALES,6,WESTERN AUSTRALIA, 6 
,MONGOLIA,4,NIGER, 5 
DATA CHAD,5,ZAIRE,5,HONDURAS,1,EGYPT,5,SWITZERLA 
ND, 3,CAMBODIA, 4, VIETNAM, 4,F INLAND, 3,SWEDEN, 3,GUA 
TEMALA, 1, IRAQ,4, ZAMBIA, 5 
DATABANGLADESH, 4, AUSTRIA, 3, POLAND, 3, CZECHOSLAVA 
KIA, 3,GUYANA, 2 
FORI=1T07:READAS (1 ):NEXT 
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12 DATANORTH AMERICA,SOUTH AMERICA, EUROPE,ASIA,AFR 
ICA, AUSTRALIA, ANTARCTICA 

13 PRINT:PRINT"PRESS <ENTER> TO BEGIN." 

14 ES=INKEYS: IFES <>CHRS$ (13 )THEN14 

15 T=8 

16 sc=0 

17 FORI=1T019:CLS: FORJ=1T0O7:PRINTJ;:AS$ (J ):NEXTJ: PRI 
NT 

18 R=RND(51)-1:IFCS(R)=""THEN1S8 

19 PRINTCS (R):PRINT:PRINT"“WHICH CONTINENT? "; 

28 ES=INKEYS: IFES=""THEN2@ 

21 IFASC(ES )<49THEN2@2 

22 IFASC(ES )>55THEN29 

23 PRINTES: IFVAL(ES )=C(R)THEN25 

24 PRINT:PRINT"SORRY, ":CS$(R):" IS IN":PRINTAS(C(R 
) )}:GOTO26 

25 PRINT: PRINT"CORRECT! ":SC=SC4+1:CS$(R)="" 

26 PRINT: PRINT"PRESS <ENTER>"; 

27 ES=INKEYS: IFES <>CHRS$ (13 )THEN27 

28 NEXTI 

29 CLS:PRINT"OUT OF 18 COUNTRIES, ":PRINT"YOUR SCOR 
E IS";SC:PRINT:PRINT"TRY AGAIN? (Y/N)" 

38 ES=INKEYS: IFES="N "THEN34 

31 IFES<>"Y"THEN3@ 

32 T=T+1l:IFT<5THEN16 

33 RESTORE: FORI=9TO5@: READCS(1I),C(I):NEXT:GOTOL5 

34 END 


Program 9-17. Countries 
TI-99/4A 


119 DIM A$(7),Cc$(58),C(58) 

128 CALL CLEAR 

138 PRINT "YOU WILL BE GIVEN THE"::"NAME OF A COUN 
TRY." 

148 PRINT : "WHERE IS IT LOCATED?" 

158 PRINT ::"SEVEN CONTINENTS ARE LISTED. "::"CHOOS 
E THE RIGHT NUMBER. " 

168 FOR I=@ TO 58 

170 READ CS$(I),c(I) 

188 NEXT I 

198 DATA FRANCE,3,BRAZIL,2,LIBYA,5,UNITED STATES, 1 
, CANADA, 1,MEXICO,1, PERU, 2,NORWAY,3,U.S.S.R.,4, 
CHILE, 2 

268 DATA CHINA, 4,JAPAN,4,SPAIN, 3, DENMARK, 3, ITALY, 3 
, PORTUGAL, 3, ENGLAND, 3, INDIA, 4, LRAN, 4, GERMANY, 3 

218 DATA ARGENTINA, 2, URUGUAY, 2, PARAGUAY, 2, ECUADOR, 
2, BOLIVIA, 2, COLOMBIA, 2, VENEZUELA, 2, KOREA, 4, IRE 
LAND, 3 
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220 


230 
246 


258 
260 
270 
280 


290 
390 
319 
329 
339 
349 
358 
368 


370 


389 
390 
468 
410 
426 
436 
449 
45@ 
460 
476 
480 
498 
590 
519 
526 
530 
540 
558 
560 
578 
580 
590 
609 
619 
620 
630 
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DATA QUEENSLAND,6,NEW SOUTH WALES,6,WESTERN AU 
STRALIA, 6,MONGOLIA, 4,NIGER,5,CHAD,5,ZAIRE,5,HO 
NDURAS, 1 

DATA EGYPT,5,SWITZERLAND, 3,CAMBODIA, 4, VIETNAM, 
4,F INLAND, 3,SWEDEN, 3,GUATEMALA,1,IRAQ,4 

DATA ZAMBIA, 5,BANGLADESH, 4,AUSTRIA,3, POLAND, 3, 
CZECHOSLAVAKIA, 3, GUYANA, 2 

FOR I=l TO 7 

READ AS(TI) 

NEXT I 

DATA NORTH AMERICA,SOUTH AMERICA, EUROPE,ASIA,A 
FRICA, AUSTRALIA, ANTARCTICA 

PRINT ::"PRESS ANY KEY TO BEGIN." 

CALL KEY(@,K,S) 

IF S<l THEN 300 

T=] 

SC=0 

FOR I=l1 TO 10 

CALL CLEAR 

PRINT "1 NORTH AMERICA": "2 SOUTH AMERICA": "3 E 
UROPE": "4 ASIA" 

PRINT "5 AFRICA": "6 AUSTRALIA": "7 ANTARCTICA": 
RANDOMIZE 

R=INT(51*RND) 

IF C$(R)="" THEN 399 

PRINT CS$(R) 

PRINT ::"WHICH CONTINENT?" 

CALL KEY(9,K,S) 

IF (K<49)+(K>55)THEN 432 

CALL HCHAR(23,21,K) 

IF K=C(R)+48 THEN 490 

PRINT ::"SORRY, "3CS(R);" IS IN"sAS(C(R) ) 
GOTO 520 

PRINT : "CORRECT!" 

SC=SC+1 

cs (R)=" 1] 

PRINT ::"PRESS <ENTER>"; 

CALL KEY(@8,K,S) 

IF K<>13 THEN 5390 

NEXT I 

CALL CLEAR 

PRINT "OUT OF 18 PROBLEMS, " 

PRINT : "YOUR SCORE IS";SC 

PRINT ::::"TRY AGAIN? (Y/N)" 

CALL KEY(9,K,S) 

IF K=78 THEN 710 

IF K<>89 THEN 600 

T=T+1 
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640 IF T<5 THEN 3390 

650 PRINT ::"ONE MOMENT PLEASE." 
660 RESTORE 

676 FOR I=8 TO 5@ 

688 READ C$(I),c(I) 

6990 NEXT I 

788 GOTO 330 


Multiplication Invasion 
Computers: VIC-20; TRS-80 Color Computer; TRS-80 Model I; TI1-99/4A 


In game format, this program presents a drill of the multiplication 
tables. Three random multiplication problems start at the bottom 
of the screen and move upward. Use the arrow keys to control 
your position at the top of the screen. Get above a particular prob- 
lem and answer the problem by pressing number keys. If the 
answer is only one digit, you must press the ENTER or RETURN 
key. If the answer is correct, that problem disappears, and another 
problem appears at the bottom. You'll score ten points for every 
correct answer. If the answer is incorrect, the problem keeps mov- 
ing upward, and your score is reduced by five points. The game 
is over when a problem reaches the top of the screen before you 
can answer it. 

In all program versions, L is the counter limit that adjusts the 
speed of the game. The counter increments during loops when 
no key is pressed. After the counter gets to L, the computer PRINTs 
a blank line, which scrolls the problems upward. SC is the score, 
and T is the number of problems answered correctly. 

Y is the position of your marker — 1, 2, or 3, for left, center, 
or right sections of the screen. C(Y) and P(Y) are coordinates 
or positions to draw your marker and PRINT the problem ina 
particular column. 

M and N are random numbers from 0 to 9 for the problems, 
and A(Y) is the answer for the problem in a particular column. 
R(Y) counts which row the problem is on so it can be erased when 
the answer is correct. R is decreased by one for each PRINT state- 
ment used in scrolling. R also detects when a problem has reached 
the top of the screen. 
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Program 9-18. Multiplication Invasion 


VIC-20 


(In this program, make sure to use abbreviations for all BASIC keywords in the lines 
marked with an asterisk (*). If you don't, the program will not run correctly. Refer to 
Appendix C, “BASIC Keyword Abbreviations,” for the proper abbreviations.) 


20 
38 


46 
58 
69 
72 


88 
98 
186 
118 
126 
130 


149 
158 
168 


178 


175 
180 
199 
280 
218 


226 
230 
240 
250 
260 
270 
280 
298 
388 
319 
328 
339 
349 
356 
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DIMA(3),C(3),R(3),P(3) 
PRINT" {CLR}* MULTIPLY INVASION *":PRINT" {DOWN }U 
SE Fl TO MOVE LEFT{7 SPACES}F3 TO MOVE RIGHT." 
PRINT" {DOWN}GET ABOVE THE PROBLEM THEN TYPE THE 
ANSWER{2 SPACES}AND PRESS <RETURN>.”" 
PRINT" {DOWN}DON'T LET THE INVADERSFLOAT TO THE 
{SPACE}TOP OR{3 SPACES}THE GAME ENDS!" 
PRINT" {DOWN}ICORRECT = 19 POINTS{3 SPACES]}WRONG 
{3 SPACES}= -5" 
PRINT" {DOWN}CHOOSE: 1 BEGINNER":PRINTTAB(8);"2 
{SPACE }MEDIUM":PRINTTAB(8);"3 FAST"; 
GETES : IFES=""THEN8@ 
IFES="1"THENL=8@ : GOTO138 
IFES="2"THENL=29 :GOTO1 32 

IFES <>"3"THENSO 

L=7 

PRINT" {CLR}{21 DOWN}":SC=0:T=0:S=36876 : POKES+2 
715 

X=7691:Y=2 

C(1)=7682:C(2)=X:C(3)=7699 
P(1)=8164:P(2)=8173:P(3)=8181:FORI=8164T08185: 
POKEI+30720,@:NEXT 

FORI=1T03 :R(I)=21:FORJ=C(I)-2T0C(1I)+2:POKEJ,1@ 
2: POKEJ+397208,6 
POKEC(I)+30742, 2: POKEC(I)+30743,2:NEXTJ,I 
POKEX+22, 90 

FORI=1T03 

M=INT(18*RND(@) ) sN=INT(10*RND(@) ) 
A(1)=M*N:B=P(I):POKEB, 48+M: POKEB+1, 42: POKEB+2, 
48+N: POKEB+3,61:POKEB+4, 63 

NEXTI 

K=9 

GETES : LFES=""THEN45@ 

IFES <>CHRS$ (133) THEN28@ 
POKEC(Y), 32: Y=Y-1: IFY<1THENY=1 

GOTO0468 

IFES <>CHRS (134) THEN31@ 
POKEC(Y) , 32: Y=Y+1 : IFY> 3THENY=3 

GOT0468 

IFASC(ES ) <48THEN479 

IFASC (ES )>57THEN47@ 

POKEC(Y)+22,ASC(ES ) 

GETFS : IFF$=""THEN340 

TIFFS <>CHRS$(13)THEN379 
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368 Z=VAL(ES) :GOTO48d 

378 IFASC(FS)<48THEN340 

388 IFASC(FS)>57THEN34¢ 

398 POKEC(Y)+23,ASC(FS) :POKEC(Y)+30743,2:Z=VAL(ES+ 
FS ) 

490 IFZ=A(Y)THEN420 

418 POKES, 159:GOSUB54@: POKES, 135 :GOSUB548:SC=SC=5: 
GOTO047@ 

428 FORI=225T0231 : POKES, I1:GOSUB54@ :NEXTI :SC=SC+18 

430 FORI=0T04: POKEP(Y)-(21-R(Y) )*22+1,32:NEXTI: POK 
EC(Y)+22,32:POKEC(Y)+23,32 

440 M=INT(10*RND(@)) :sN=INT(10*RND(G@)):A(Y)=M*N:R(Y 
)=21:B=P(Y) : POKEB, 48+M: POKEB+1, 42 

445 POKEB+2, 48+N: POKEB+3, 61: POKEB+4, 63 : FORJ=BTOB+4 
: POKEJ+30729,O:NEXT:T=T+1 

450 K=K+l:IFK<L THEN24@ 

460 POKEC(Y)+22,99 

* 476 PRINT: FORI=1T03 : FORJ=C(1I)-2T0C(I)+2:POKEJ,102: 

NEXTJ, 1: POKEC(Y)+22,98:POKEC(Y)+38742, 2 

475 FORJ=38490T038421:POKEJ,6:NEXTJ 

486 FORI=1T03:R(I)=R(I)-1: IFR(1I)=-1THENS519 

496 NEXTI 

588 GOTO230 

510 POKES, 159:FORD=1 T0290: NEXT: POKES, 135: FORD=1TO2 
09 : NEXT: POKES, @ 

520 PRINT" {CLR}GAME OVER":PRINT"{2 DOWN}SCORE = "; 
SC:PRINT" {DOWN}PROBLEMS = ":;T:PRINT:GOTO55@ 

548 FORD=1T099:NEXT: POKES, @: RETURN 

558 END 


Program 9-19. Multiplication Invasion 
TRS-80 Color Computer 


28 DIMA(3),C(3),R(3),P(3) 

38 CLS:PRINT"**MULTIPLICATION INVASION**":PRINT:PR 
INT"USE THE ARROW KEYS TO MOVE":PRINT"LEFT OR R 
IGHT." 

49 PRINT"GET ABOVE THE PROBLEM THEN TYPE THE ANSWE 
R AND PRESS <ENTER>. " 

5@ PRINT:PRINT"DON'T LET THE INVADERS FLOAT 
{4 SPACES}TO THE TOP OR THE GAME ENDS!" 

68 PRINT:PRINT"CORRECT=10 POINTS; WRONG=-5" 

786 PRINT:PRINT"CHOOSE: 1 BEGINNER": PRINTTAB(8); "2 
MEDIUM": PRINTTAB(8):"3 FAST": 

88 ES=INKEYS: IFES=""THEN8@ 

99 IFES="l1"THEN L=880:GOTO139 

190 IFES="2"THEN L=58:GOTO130 

110 IFES<>"3"THEN8@ 

120 L=25 
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a EEO 


138 CLS:SC=8: T= 

140 X=32:Y=2 

158 Cc(1)=8:c(2)=38:C(3)=52 

168 P(1)=449:P(2)=460:P(3)=471 

178 PORI=1T03:R(1I)=15:FPORJ=0TO5:SET(C(I)+3,0,4):SE 
T(C(I)+d0,1,4):NEXTJ,I 

1890 SET(X,1,2):SET(X+1,1,2) 

198 FORI=1T03 

208 M=RND(10)—-1:N=RND(19)-1 

218 A(I)=M*N:PRINT@P(I),M;"*"sN;7 "=?" 

228 NEXTI 

238 K=0 

248 ES=INKEYS:IFES=""THEN 450 

258 IFES <>CHRS (8)THEN28@ 

260 SET(X,1,4):SET(X+1,1,4):X=X-22: Y=Y-1: IFX<16THE 
NX=190:Y=1 

278 GOTO462 

280 IFES <>CHRS (9)THEN31@ 

298 SET(X,1,4):SET(X+1,1,4):X=X+22: Y=Y+1:IFX>54THE 
NX=54:Y=3 

388 GOTO469 

318 IFASC(ES$)<48 THEN 4790 

328 IFASC(E$)>57 THEN 479 

330 PRINT@X/2+32,ES; 

349 FS=INKEYS: IFFS=""THEN340 

350 IFFS$<>CHRS$ (13 )THEN379 

368 Z=VAL(ES ):GOTO489 

378 IFASC(FS ) <48THEN34@ 

389 IFASC(FS )>57THEN34@ 

399 PRINT@X/2+33,FS;:Z=VAL(ES+FS ) 

499 IFZ=-A(Y)THEN420 

418 SOUND125, 2: SOUND89, 2:SC=SC-5:GOT0479 

428 FORI=176T0193:SOUNDI,1:NEXTI:SC=SC+19 

430 PRINT@P(Y)-(15-R(Y))*32,"{9 SPACES}"; 

449 M=RND(19)—-1:N=RND(10)-1:A(Y)=M*N:R(Y)=15: PRINT 
@P(Y),Ms"*"sNe"=3"2 sT=T+1 

450 K=K+l:IFK<L THEN 248 

468 SET(X,1,2):SET(X+1,1,2) 

478 PRINT@489," ":FORI=1T03:FORJ=0T05:SET(C(I)+J,@ 
,4):SET(C(1)+3,1,4):NEXTI,1:SET(X,1,2):SET(X+1 
71,2) 

4898 FORI=1T03:R(I)=R(I)-l: IFR(I)=1THEN51@ 

499 NEXTI 

588 GOTO236 

518 SOUND58,5:SOUND5,8 


520 CLS:PRINT"GAME OVER":PRINT:PRINT"SCORE = ";SC:3 
PRINT:PRINT"NUMBER OF PROBLEMS = “;T:PRINT 
530 END 
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Pro 


15 
26 
39 
49 
58 
608 


76 
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gram 9-20. Multiplication Invasion 
TRS-80 Model | 


CLEAR3@@ 
DIMA(3),R(3),P(3) 
CLS:PRINTTAB(5):"**MULTIPLICATION INVASION**":P 
RINT:PRINT"USE THE ARROW KEYS TO MOVE LEFT OR R 
IGHT. " 
PRINT"GET ABOVE THE PROBLEM THEN TYPE THE ANSWE 
R AND PRESS <ENTER>. " 
PRINT:PRINT"DON'T LET THE INVADERS FLOAT TO THE 
TOP OR THE GAME ENDS!" 
PRINT: PRINT"16 POINTS FOR CORRECT ANSWERS; -5 F 
OR INCORRECT ONES" 
PRINT: PRINT"CHOOSE: 1 BEGINNER": PRINTTAB(8);"2 
MEDIUM": PRINTTAB(8);"3 FAST"; 
ES=INKEYS: IFES=""THEN8@ 
IFES="1"THEN L=88:GOTO136 
IFES="2"THEN L=58:GOTO13@ 
IFES <>"3 "THEN8S 
L=25 
CLS :SC=0: T=0: HS=CHRS (191): GS=HS+HS+HS+" 
{18 SPACES} "+HS+HS+HS$+"{18 SPACES} "+HS+HS+HS$ 
Y=2: FORI=1T03:READX(I), P(I):NEXT 
DATA75 , 904, 96,924,117,944 
PRINT@19,G$:PRINT@X(Y),HS$ 
FORI=1T03:R(I)=15 
M=RND (198 )-1:N=RND(10)-1 
A(I )=M*N:PRINT@P(I),M3"*"sN3"=2?"2 
NEXTI 
K= 
ES=INKEYS: IFES=""THEN 450 
IFES <>CHRS (8 )THEN28@ 
PRINT@X(Y)," "“:Y=Y-1: IFY<1THENY=1 
GOTO46G 
IFES <>CHRS (9)THEN318 
PRINT@X(Y)," "“sY=Y+1l: IFY> 3THENY=3 
GOTO468 
IFASC(ES)<48 THEN 476 
IFASC(E$)>57 THEN 472 
PRINT@X(Y),ES; 
FS=INKEYS: IFFS=""THEN34@ 
IFFS <>CHRS (13 )THEN378 
Z=VAL(ES ): GOTO488 
IFASC(FS ) <48THEN349 
IFASC(FS )>57THEN34@ 
PRINT@X(Y)+1,FS$3:Z=VAL(ES+ES ) 
IFZ=A(Y)THEN42@ 
FORI=1T020: PRINT@X(Y)-3, "-------- "es PRINT@X(Y) 
-3,"{8 SPACES}"; :NEXT:SC=SC-5:GOT047@ 
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429 


430 
449 


450 
469 
470 
486 
496 
588 
518 
528 


530 


FORI=1T035:PRINT@X(Y)-64, "*"; s:PRINT@X (Y)-64, HS 
> :NEXTI:SC=SC+10:PRINT@X(Y)," "3 

PRINT@P (Y)-(15-R(Y))*64,"{18 SPACES}"; 
M=RND(1@0)-1:N=RND(10)-1:A(Y)=M*N:R(Y)=15: PRINT 
@P (Y),M;3 We MeN e tt Rite eT=T+1 

K=K+1:IFK<L THEN 240 

PRINT@X(Y),HS 

PRINT@960," ":PRINT@10,G$:PRINT@X(Y),HS$ 
FORI=1T03:R(I)=R(I)-1: IFR(I )=2THENS1@ 

NEXTI 

GOTO230 

FORI=1T020:PRINTOX(Y)," "sPRINT@X(Y),HS:NEXT 
CLS:PRINT"GAME OVER":PRINT:PRINT"SCORE = ";SCs: 
PRINT: PRINT"NUMBER OF PROBLEMS = ";T:PRINT 

END 


Program 9-21. Multiplication Invasion 


110 
126 
139 
146 


158 
168 
170 


188 
198 
28D 
2198 


228 
230 
240 
250 
260 
270 
280 
296 
386 
312 
326 
339 
349 
359 
360 
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TI-99/4A 
DIM A(3),C(3),R(3),P(3) 
CALL CLEAR 


PRINT "* MULTIPLICATION INVASION *" 

PRINT ::"USE THE ARROW KEYS TO MOVE LEFT OR R 
IGHT." 

PRINT :"GET ABOVE THE PROBLEM THEN TYPE THE A 

NSWER AND": "PRESS <ENTER>” 

PRINT :"DON'T LET THE INVADERS FLOATTO THE TOP 
OR THE GAME ENDS!" 

PRINT ::"CORRECT = 18 POINTS": "WRONG 

{3 SPACES}= -5 POINTS" 

CALL CHAR(96, "FFFFFFFFFFFFFFFF") 

CALL COLOR(9,7,1) 

CALL CHAR(97, "O8088888087F3E1CB8" ) 

PRINT ::"CHOOSE: 1 BEGINNER": TAB(9);"2 MEDIUM" 
sTAB(9);"3 FAST"; 

CALL KEY(8,K,S) 

IF (K<49)+(K>51)THEN 220 

L=(4-(K-48) )*2 

CALL CLEAR 

Ssc=0 

T=O0 

c(1)=3 

Cc(2)=14 

c(3)=25 

FOR I=1 TO 3 

CALL HCHAR(1,C(1I),96,5) 

NEXT I 

FOR Y=1 TO 3 

RANDOMIZE 

GOSUB 880 
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NEXT Y 

Y=2 

CALL HCHAR(2,C(Y)+2,97) 

KL=0 

CALL KEY(0,K,S) 

IF S<l THEN 779 

IF K<>83 THEN 496 

CALL HCHAR(2,C(Y)+2, 32) 

Y=Y-1 

IF YO THEN 7790 

Y=1 

GOTO 772 

IF K<>68 THEN 559 

CALL HCHAR(2,C(Y)+2, 32) 

Y=Y+1 

IF Y<4 THEN 778 

Y=3 

GOTO 779 

IF (K<¢<48)+(K>57)THEN 779 

CALL HCHAR(2,C(Y)+2,K) 
=K-48 

CALL KEY(8,K,S) 

IF S<l THEN 580 

IF K=13 THEN 648 

IF (K<48)+(K>57)THEN 58¢ 

CALL HCHAR(2,C(Y)+3,K) 

B=10*B+ (K-48) 

IF B<oA(Y)THEN 740 

FOR I=262 TO 392 STEP 12 

CALL SOUND(-99,1,2) 

NEXT I 

CALL HCHAR(R(Y),C(Y), 32,5) 

CALL HCHAR(2,C(Y)+2, 32,2) 

GOSUB 8890 

SC=SC+19 

T=T+1 

GOTO 768 

CALL SOUND(198,-6,4) 

sc=SC-5 

CALL HCHAR(2,C(Y)+2,32,2) 

KL=KL+1 

CALL HCHAR(2,C(Y)+2,97) 
IF KL<L THEN 410 

PRINT 

FOR I=1 TO 3 

CALL HCHAR(1,C(1I),96,5) 

R(I)=R(I)-1 

IF R(I)<=2 THEN 980 

NEXT I 

CALL HCHAR(2,C(Y)+2,97) 
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878 GOTO 482 

888 M=INT(18*RND) 

899 N=INT(10*RND) 

998 A(Y)=M*N 

918 CALL HCHAR(23,C(Y),Mt+48) 

928 CALL HCHAR(23,C(Y)+1,42) 

938 CALL HCHAR(23,C(Y)+2,N+48) 

949 CALL HCHAR(23,C(Y)+3,61) 

958 CALL HCHAR(23,C(Y)+4,63) 

969 R(Y)=23 

978 RETURN 

989 FOR I=1 TO 16 

999 CALL SCREEN(I) 

1880 NEXT I 

1918 CALL CLEAR 

1928 PRINT "GAME OVER" 

1930 PRINT ::"SCORE = ";SC::"NUMBER OF PROBLEMS = 
"eT ss 


1848 END 


Defend 
Computer: VIC-20 


This is a simple intercept, shooting game for one person. You are 
positioned at the left of the screen and need to defend your territory 
— don't let the invaders coming from the right of the screen get 
to your border. Line up horizontally with an invader by pressing 
the up arrow to move up and the down arrow to go down, then 
shoot with the space bar or the f7 key. You score ten points for 
each invader you successfully shoot, but you lose five points if 
you miss. 

After you have played this game once or twice, adapt it for 
your own game — use different graphics and screen colors. Change 
the motion ta vertical instead of horizontal. Adapt the scoring. 
Perhaps you could change the shapes of the invaders after certain 
scores are reached — and vary the speed they travel. 

Here's how “Defend” works: 


Line — Function 

1 Turn on volume for sound and initialize TS for the 
top score. 

2 Define function R(X) to calculate the location num- 
ber for a random row and branch to line 200. 

10 Clear screen and set screen and border color. Initial- 


ize variables — N is the location of your ship, SC is 
the score, and D is difficulty level. 
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20 Place defending ship on screen. 

22-25 Randomly place invaders, making sure they are not 
on the same row. 

30 Detect your key press. If it is one of the firing keys 
(space bar or f7), branch to line 60. 

32-34 If arrow keys are pressed, move up or down. 

35 Increment L to determine speed of invaders. 

36 Increment invaders’ positions — move one spot to left. 

37-42 If an invader reaches left side of screen, branch to 
line 100 to end game. 

44-50 Move invaders and branch back to receive next 
key press. 

60 Make firing noise and blink defender. 

62-68 Check positions of invaders to see if one was shot. 

70 Decrease score by 5 if shot missed. 

72-78 Procedure if invader is shot and new invader posi- 
tion chosen. 

80 Score is increased by 10, clear invader, and stop noise. 

82-84 PRINT score and branch back for next key press. 

90-94 Check boundary positions of defender, then draw 
defender on screen in new position. 

100-110 Procedure at game’s end. 

120-160 PRINT ending message, score, and high score. 

170-190 PRINT option to try again and branch appropriately. 

200-280 PRINT instruction screen. 

290 END. 

Program 9-22. Defend 

VIC-20 


(In this program, make sure to use abbreviations for all BASIC keywords in the lines 
marked with an asterisk (*). If you don’t, the program will not run correctly. Refer to 
Appendix C, “BASIC Keyword Abbreviations,” for the proper abbreviations.) 


1 POKE36878,15:TS=0 

2 DEF FNR(X)=7745+22* (INT(RND(@)*28)):GOTO 200 
10 PRINT" {CLR}":POKE36879, 197 :N=7922:SC=0:D=190 
28 POKEN, 99 

22 I=FNR(X) :J=FNR(X) :K=FPNR(X) :H=FNR(X) 

24 IFH=IORH=JORH=KORI=JORI=KORJ=K THEN 22 

25 POKEH, 42:POKEL,42:POKEJ,42:POKEK, 42 

38 GETAS : I1LFAS=CHRS$(136)OR AS=CHRS(32)THEN 60 
32 IFAS=CHRS (94) THENPOKEN, 32 :N=N-22 :GOTO99 

34 IFAS=CHRS (17) THENPOKEN, 32:N=N+22 :GOTO9@ 

35 L=L+1:IFL<DTHEN3S 

36 H=H-l :I=I-1l:J=-J-1:K=K-1:L=9 
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37 
38 
40 
42 
*44 


58 
68 


62 
64 
66 
68 
78 
72 
74 
76 
78 
88 
82 


84 
98 
92 
94 
180 


119 


128 
139 
148 


156 
169 
176 
189 
185 
198 
290 


229 
230 
246 


254 


IF (H-7680 ) /22=INT( (H-7689) /22) THEN19O 

IF (I-768@ )/22=INT( (I1-7688) /22) THEN1 OO 

IF (J-7688 ) /22=INT( (J-7680) /22) THEN1 OG 

IF (K-7689 ) /22=INT ( (K~768@) /22) THEN19@ 

POKE36876, 249: POKEH+1, 32: POKEI+1, 32:POKEJ+1, 32: 
POKEK+1 , 32: POKEH, 42: POKEI, 42: POKEJ , 42: POKEK, 42: 
POKE36876,9 

GOTO3@ 

FORM=208T02 20 : POKE36876 ,M: POKEN+387 20, 2: POKEN+3 
@720,1:NEXT: POKE36876,0 

IFH>NANDH<N+22THEN72 

IFI>NANDI<N+22THEN74 

IFJ>NANDJ <N+22THEN76 

IFK> NANDK<N+22THEN78 

SC=SC=-5 :GOTO82 

POKE36877, 160: POKEH, 102: B=H: H=FNR(X) :GOTO8@ 
POKE36877, 158: POKEI, 102:B=I: I=FNR(X) :GOTO82 
POKE36877 ,180:POKEJ , 102: B=J:J=FNR(X) :GOTO8@ 
POKE36877, 198: POKEK, 102: B=K:K=FNR(X) 

SC=SC+19 : POKEB, 32: POKE36877,@ 

PRINT" {HOME} {BLU} {RVS}(22 SPACES} {OFF}":PRINT” 
{HOME} (WHT}SCORE =";SC:I1FSC>50@THEND=5 

GOTO30 

IFN<7724THENN=77 24 

IFN>8164THENN=8164 

POKEN , 98 :GOTO30 

POKE36877 , 220: FORC=38445TO38885STEP22 : POKEC, 2: 
NEXTC: FORC=1T010@8 :NEXTC 
FORC=38445T0O38885STEP22 : POKEC, 1: NEXTC: POKE3687 
7,0 

PRINT" {WHT}GAME OVER" 
FORC=1T0190@ : NEXT: POKE36879, 27 


PRINT" {CLR} {BLU}{2 DOWN}YOUR FINAL SCORE WAS 
{3 SPACES }":PRINT" { RED}";SC:PRINT" {BLU} 

{2 Down}" 

IF SC>TS THEN TS=SC 

PRINT"HIGH SCORE = ":TS 


PRINT" {GRN}{3 DOWN}TRY AGAIN? (Y/N)" 

GETAS:IF AS="Y"THEN 19 

IF AS<>"N" THEN 182 

PRINT" {BLU}":END 

POKE36879,186: :PRINT" {CLR} {BLK}":PRINTTAB(S5) ;' 

* DEFEND **{2 DOWN)" 

PRINT"{2 DOWN}PRESS f TO MOVE UP":PRINT"PRESS 
{SPACE}CRSR TO GO DOWN" 

PRINT" {DOWN}PRESS F7 OR SPACE":PRINT"TO FIRE. 
{3 Down}" 

PRINT"KEEP THE INVADERS FROMREACHING YOUR SIDE 
OF THE SCREEN." 


Fun in Less Than 4K 


250 PRINT"{2 DOWN}{RED}PRESS RETURN TO START"; 
260 GETAS:IFAS=""THEN 260 

278 IF ASC(AS$)=13 THEN 19 

288 GOTO269 

298 END 
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A Beginner’s Guide 
to Typing In Programs 


What Is a Program? 

A computer cannot perform any task by itself. Like a car without 
gas, acomputer has potential, but without a program, it isn't going 
anywhere. Most of the programs published in this book are writ- 
ten in a computer language called BASIC. BASIC is easy to learn 
and is built into most computers (on some computers, you have 
to purchase an optional BASIC cartridge). 


BASIC Programs 

To start out, type in only programs written for your machine. 
Later, when you gain experience with your computer's BASIC, 
you can try typing in and converting certain programs from one 
computer to yours. 

Computers can be picky. Unlike the English language, which 
is full of ambiguities, BASIC usually has only one right way of 
stating something. Every letter, character, or number is signifi- 
cant. A common mistake is substituting a letter such as O for the 
numeral 0, a lowercase | for the numeral 1, or an uppercase B for 
the numeral 8. Also, you must enter all punctuation such as colons 
and commas just as they appear in the book. Spacing can be impor- 
tant. To be safe, type in the listings exactly as they appear. 


Braces and Special Characters 

The exception to this typing rule is when you see the braces, such 
as {DOWN}. Anything within a set of braces is a special charac- 
ter or characters that cannot easily be listed on a printer. When 
you come across such a special statement, refer to the appropriate 
key for your computer. For example, if you have a VIC-20, refer 

to the VIC’s section in “How To Type In Programs.” 


About DATA Statements 
Some programs contain a section or sections of DATA statements. 
These lines provide information needed by the program. Some 
DATA statements contain actual programs (called machine lan- 
guage); others contain graphics codes. These lines are especially 
sensitive to errors. 

If a single number in any one DATA statement is mistyped, 
your machine could lock up, or crash. The keyboard, break key, 
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and RESET (or STOP) keys may all seem dead, and the screen 
may go blank. Don’t panic — no damage is done. To regain con- 
trol, you have to turn off your computer, then turn it back on. 
This will erase whatever program was in memory, so always SAVE 
a copy of your program before you RUN it. If your computer crashes, 
you can LOAD the program and look for your mistake. 

Sometimes a mistyped DATA statement will cause an error 
message when the program is RUN. The error message may refer 
to the program line that READs the data. The error is still in the 
DATA statements, though. 


Get to Know Your Machine 

You should familiarize yourself with your computer before attempt- 
ing to type in a program. Learn the statements you use to store 
and retrieve programs from tape or disk. You'll want to save a copy 
of your program, so that you wor't have to type it in every time 
you want to use it. Learn to use your machine's editing functions. 
How do you change a line if you made a mistake? You can always 
retype the line, but you at least need to know how to backspace. 
Do you know how to enter reverse video, lowercase, and control 
characters? It’s all explained in your computer’s manuals. 


A Quick Review 

1) Type in the program a line at a time, in order. Press RETURN 
or ENTER at the end of each line. Use backspace or the back arrow 
to correct mistakes. 

2) Check the line you've typed against the line in the book. You 
can check the entire program again if you get an error when you 
RUN the program. 

3) Make sure you've entered statements in brackets as the appro- 
priate control key (see Appendix B, “How To Type In Programs”). 
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How to Type In Programs 


To make it easy to tell exactly what to type when entering one of 
these programs into your computer, we have established the follow- 
ing listing conventions. There is a separate key for each computer. 
Refer to the appropriate tables when you come across an unusual 
symbol in a program listing. If you are unsure how to actually 
enter a control character, consult your computer's manuals. 


VIC-20 

Generally, any VIC-20 program listings will contain words 
within braces which spell out any special characters: { DOWN} 
would mean to press the cursor down key. {5 SPACES} would 
mean to press the space bar five times. 

To indicate that a key should be shifted (hold down the SHIFT 
key while pressing the other key), the key would be underlined 
in our listings. For example, S would mean to type the S key while 
holding the Shift key. This would appear on your screen as a 
“heart” symbol. If you find an underlined key enclosed in braces 
(e.g., {10 N}), you should type the key as many times as indicated 
(in our example, you would enter ten shifted N’s). 

If a key is enclosed in special brackets, |[< >], you should hold 
down the Commodore key while pressing the key inside the special 
brackets. (The Commodore key is the key in the lower-left corner 
of the keyboard.) Again, if the key is preceded by a number, you 
should press the key as many times as necessary. 

Rarely, you'll see a solitary letter of the alphabet enclosed in 
braces. You should never have to enter such a character on the 
VIC-20, but if you do, you would have to leave the quote mode 
(press RETURN and cursor back up to the position where the 
control character should go), press CTRL-9 (RVS ON), the letter 
in braces, and then CTRL-0 (RVS OFF). 

About the quote mode: you know that you can move the cursor 
around the screen with the CRSR keys. Sometimes a program- 
mer will want to move the cursor under program control. That's 
why you see all the { LEFT }’s, { HOME}’s, and { BLU }’s in our pro- 
grams. The only way the computer can tell the difference between 
direct and programmed cursor control is the quote mode. 

Once you press the quote (the double quote, SHIFT-2), you 
are in the quote mode. If you type something and then try to change 
it by moving the cursor left, you'll only get a bunch of reverse- 
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video lines. These are the symbols for cursor left. The only edit- 
ing key that isn’t programmable is the DEL key; you can still use 
DEL to back up and edit the line. Once you type another quote, 
you are out of quote mode. 

You also go into quote mode when you INSerT spaces into a 
line. In any case, the easiest way to get out of quote mode is to 
just press RETURN. You'll then be out of quote mode and you 
can cursor up to the mistyped line and fix it. 

Use the following table when entering cursor and color 
control keys: 


When You When You 

Read: Press: See: Read: Press: See: 
(cur) = (Garr) [eamowe] J tom = Cam | 
{ HOME) Eq isi) [erat |[7_] Ea 
wwe) [are] [emg] J ees 
{ Down } {Fl} [ 7 
ee Ca] oe | ee 
{RIGHT} (F3) [ «8 | ve 
w) feo] BeCil] 
{OFF} CTRL [° ] oo {FS} [os | ig 
{BLK} [cra] [1 | Pf {F6} [sar] [is | je 
(war) cret}{_2 | (F7} [7 | Hi 
{ RED} [cra] [3 | {Fs} [swer][_e_] | 
{cYN} CTRL [« | a “ Lo} = 
{PUR} CTRL [os ] EC | t [ ser |[ 9] Hae 
Texas Instruments 99/4 


The only special characters used are in PRINT statements to indi- 
cate where two or more spaces should be left between words. 
For example, ENERGY {10 SPACES } MANAGEMENT means 
that ten spaces should be left between the words ENERGY and 
MANAGEMENT. Do not type in the braces or the words 10 
SPACES. Enter all programs with the ALPHA LOCK on (in the 
down position). Release the ALPHA LOCK to enter lowercase text. 


TRS-80 Color Computer 
As with the TI-99/4A, some special characters are used in the 
PRINT statements. To indicate where two or more spaces should 
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be left between words, the program listing will show something 
like LOCATING {5 SPACES } POINTS. This means that five spaces 
should be left between the words LOCATING and POINTS. Don't 
type in the braces or the actual words 5 SPACES. All the programs 
should be entered in uppercase on the TRS-80 Color Computer. 
Another character you'll see in the program listing is the up 
caret (A). This represents the exponential symbol you'll see on 
your screen as an up arrow ( f ). Simply press the up arrow key 
on the left side of the keyboard when you see the A symbol in 
a program. 
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BASIC Keyword Abbreviations 


Most keywords in VIC BASIC can be abbreviated by typing the 
first one or two letters of the word followed by the SHIFIed next 
letter. The use of abbreviations will not only save time when 
entering programs or commands but will reduce the total number 
of characters per line. Abbreviated keywords will LIST in the full, 
unabbreviated form when used in a program line. 


Most Commonly Used Keyword Abbreviations 


Keyword: Press: See: Keyword: Press: See: 
AND A[SHIFTIN A ON NONE ON 
CLR C[SHIFTIL Cc [] OR NONE OR 
DATA D[SHIFT|A D fal] PEEK P|SHIFTJE P FY 
DIM D{SHIFT]I D §] POKE P([SHIFTIO §=6P.:«] 
FOR F(SHIFTIO F [] PRINT ? ? 
GET G[SHIFTIE Gc FY READ R(SHIFTJIE R [J 
GosuB_  GO[SHIFT|S Go[¥] REM NONE REM 
coro =—'—sWaG [sHiFTIo «OG «OJ RESTORE RE[SHIFT]S RE[¥] 
IF NONE IF RETURN RE[SHIFT|T RE{] ] 
INPUT NONE INPUT RND R(SHIFTIN RY 
INT NONE INT RUN R{SHIFTJU = R [7 
LET LISHIFTJE L [7] SAVE S|SHIFT|A  S [a] 
LIST L[SHIFT]I  =L STEP ST(SHIFTJE st 
LOAD L([sHiFTlo cL [J TAB( T(SHIFT]A iT (4) 
NEXT N(SHIFTIE N [J THEN TisHiFT]H =6T CLD 
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Other Abbreviations 

Press: See: Keyword: Press: See: 

A|SHIFT|B_ =A [J] MID$ M|SHIFT]IT Mf] 
a(sHIFTIs =A [¥}) = Nor ~—sN(SHIFTIO. «NC 
A[SHIFT]JT A [] OPEN O([SHIFT|IP oO) 
C/SHIFT]IH C [] POS NONE POS 

cL[sHiFT]lo cLtO PRINT? P[SHIFTJIR) =P 
c(sHiFT]IM cA RIGHT$ R(SHIFT]I R J 
c([sHiFTlo )3=6c LD SGN s[SHIFTIG 5s [] 
NONE cos SIN S(SHIFT]I Ss 4] 
D|SHIFTJE D FA SPC( S|SHIFT |P s [J 
E[SHIFTIN EY SQR S[SHIFT]IQ s BB 
E[SHIFT]X €E [4] STOP S|SHIFT|T s [) 
NONE FN STR$ ST[SHIFT]R ST(_]J 
F(SHIFTIR F [J SYS S(SHiFT]y ss LJ 
NONE GET# TAN NONE TAN 

I[SHIFTIN I Y USR U[SHIFT]S —_U [v] 
LE[SHIFT]F LE LJ VAL V[SHIFTJA VV [a] 
NONE LEN VERIFY  V{SHIFTJE Vv [_] 
NONE LOG WAIT W[SHIFT]A__-W [4] 
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abbreviations, VIC-20 264-5 

“Adding Fractions” program 179-85 

“Adverbs” program (translatable) 18-20 

“All Factors” program 151-53 

amortization 23 

“Amortization” program (translatable) 
43-44 

Apple computers 23 

“Arithmetic Mean” program (translatable) 
36-37 

“Bake a Cake” program (VIC-20) 209, 
223-28 

“Bass Clef’ program 104-9 

braces 259 

bubble sort 195-96 

“Buying Items” program 113-22 

cakes, how to bake 225-26 

“Circles’’ program (translatable) 31-34 

clearing screen 13 

“Color Code” program 53-59 

Commodore computers 23 

“Compound Interest” program 
(translatable) 38-39 

conserving memory 3-10 
in “Nouns” program 5-6 

“Conversions” program (translatable) 
24-27 

“Cookie File’ program (VIC-20) 209, 
228-31 

“Counting Shapes” program 68~—75 

“Countries” program 241-45 

DATA statements 259-60 
memory conservation and 4, 5 

“Defend’’ program (VIC-20) 209, 252-55 

DEF FN statement 23-24 

degrees 23 

DIM statement, memory conservation 
and 3-4 

Distance’ program (translatable) 27-28 

“Dividing Fractions’ program 175-79 

“Division” program 149-51 

‘Doodle’ program 48-53 

DRAW command, memory conservation 
and 3 

“Earning Money” program 127-36 

“Equivalent Fractions” program 163-68 

exponentiation 38, 39 

“Find All Factors” program 151-53 

FOR-NEXT, use to save memory 3 

function definitions 23 
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GOSUB statement 5 
GOTO statement 5 
memory conservation and 3 
graphics 47-88 
computer-specific 47 
“Graphics Demo” program 47-48 
“Greatest Common Factor” program 
155-58 
IF-THEN statements 5 
not always memory-efficient 4 
key, detect which being pressed 14 
‘Least Common Multiple” program 
159-63 
line numbers 
low ones save memory 4-5 
“Loan Payments” program (translatable) 
42-43 
“Locating Points’ program 76-85 
“Matching Shapes” program 59-68 
math competency programs 113-46 
maximum and minimum sort 198-200 
MC-10 computer ix, x, 5, 18, 47 
“Multiplication Invasion” program 245-52 
“Multiplying Fractions” program 171-75 
multistatement lines 
illegal in TI BASIC 5 
memory conservation and 4, 5-6 
‘Musical keyboard” program 89-96 
“Nouns” program 5~—10 
null string 224 
ON-GOTO statements 
take less space than IF-THEN 4 
ON-GOSUB statements 
take less space than IF-THEN 4 
“Parallel Resistance’ program 
(translatable) 35-36 
“Prime Factors’ program 153-55 
program listing conventions 
TI 262 
TRS-80 262 
VIC-20 261-62 
“Quick Sort’ program 200-202 
radians 23 
random numbers 13 
READ statements, memory conservation 
and 4 
“Rectangles” program (translatable) 29-31 
REM statements, delete to conserve 
memory 3 
repetition 149 


RESTORE statement 225 

“Roman Numerals” program 15-18 
“Sales Tax’’ program 122-27 
“Saving Money” program 142-46 
scrolling 245 

shell sort 196-98 


“Simple Interest’ program (translatable) 


37 
“Simplifying Fractions” program 168-71 
“Simultaneous Equations” program 
186-91 


“Single Payment” program (translatable) 
39 


“Sinking Fund” program (translatable) 41 


sorting 193-206 
sound 87-109 
computer-specific 47, 89 
“South America” program 238-40 
spaces, omit to save memory 4 
“Square Root” program (translatable) 
34-35 
“Squares” program (translatable) 28-29 


“States and Capitals” program 209, 231-38 


“Teeth Wisdom” program 217-23 
“Test Scores” program 202-6 


TI BASIC 
function definitions in 24 
multistatement lines not allowed 5 
Timew/Sinclair computer vii, 13, 14 
TI-99/4 computer 5, 15 
T1-99/4A computer viii, 5, 15, 47, 89 
touch-typing 210 
translatable programs, features of 13 
translating BASIC 13-20 
“Treble Clef’ program 96-103 
TRS-80 Color Computer iii, viii, 15, 18, 
38, 39, 47, 89 
TRS-80 computers 23 
TRS-80 Extended Color Basic 38, 39, 40 
TRS-80 4K Color Computer 14, 31, 34 
TRS-80 16K Color Computer 5, 14 
TRS-80 Model I computer vii, viii, 5, 15, 
18, 47 
TRS-80 Model IV computer vii 
“Typing” program 209-17 


“Uniform Series” program (translatable) 


40 
variable names 3 


VIC-20 computer iii, vii, viii, 5, 14, 15, 38, 


47, 89, 209 
“Weekly Expenses” program 136-42 
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